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PREFACE 








This manual describes iTie system software facilities which support the Digital XVM FORTRAN 

IV compilers together with hardware features which affect the FORTRAN programmer. Included 

are discussions of monitor features which are of interest to the FORTRAN programmer, the 

1 .2 

FORTRAN IV Object Time System (OTS), and the Science Library . All descriptions pres¬ 
ented apply to the XVM versions of the FORTRAN compiler. Appendix E presents overall out¬ 
lines and descriptions and detailed data specifying the difference among the various compilers 
for the XVM/DOS and XVM/RSX software systems. 

A companion manual FORTRAN IV XVM LANGUAGE MANUAL describes the elements, syntax 
and use of the FORTRAN IV language as implemented for the XVM computer. 

The following is a list of XVM documents which either support directly or contain information 
useful in understanding FORTRAN IV XVM and its function: 

XVM/DOS User's Manual 
XVM/RSX System Manual 
Linking Loader XVM Utility Manual 
CHAIN XVM/EXECUTE XVM Utility Manual 


The Object Time System is a set of subroutines which are automatically invoked by certain 
FORTRAN language elements. A FORTRAN input-output statement, for example, is not com¬ 
piled directly into executable object code but becomes a call to the appropriate OTS input- 
output routine. 

2 

The Science Library is a set of intrinsic functions, external functions, subfunctions, and sub¬ 
routines which the user may invoke explicitly in a FORTRAN statement. 
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CHAPTER 1 


INTRODUCTION 


A FORTRAN-IV program may be compiled and run in several different environments. The 
FORTRAN programmer need not be concerned with the details of his environment since the 
FORTRAN Object-Time System (OTS) will ensure that his statements invoke the appropriate 
computer instructions. For example, an arithmetic statement such as A = A*B will appear 
the same in any FORTRAN-IV program. In the object program it may be transformed to a 
subroutine call or a floating point instruction, depending on the hardware configuration on 
which the program is produced. 

The programmer will need to know procedures for compiling and loading his program and for 
using the peripheral devices available to him. In addition, a number of software facilities 
may be of interest to a programmer who requires maximum program efficiency or functions 
not performed by FORTRAN statements. In this case, he may invoke FORTRAN-callable 
functions and subroutines from the FORTRAN library or augment his program by linking to 
MACRO assembler programs and invoking the OTS utility routines. 

In this chapter, the basic procedures are described for using FORTRAN and the major facili¬ 
ties available to a FORTRAN program. These facilities are described in greater detail in 
subsequent chapters, and Appendix C contains a collection of illustrative programming ex¬ 
amples. The main discussion is based on the XVM/DOS monitor, and differences for the 
XVM/RSX environment are noted. The term DOS/RSX implies XVM/DOS and XVM/RSX. 

1.1 OPERATING PROCEDURES 

The FORTRAN IV compiler is a two-pass system program which produces relocatable object 
code. This code is then linked with user-specified FORTRAN-compiled or MACRO XVM 
assembled routines and with required OTS library routines. Program linkage may be 
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accomplished via the linking loader, LOAD or GLOAD (DOS), which loads the resulting 
program directly into core for immediate execution. The user may, alternatively, use one 
of the overlay linkage editors - CHAIN (DOS) or TKB (RSX). These construct core images 
onto auxiliary storage for later execution. 

In DOS, the FORTRAN-IV compiler is called by typing F4 after the monitor has issued a $. 
When FORTRAN has been loaded, the version name is typed at the left margin as in: 

F4M XVM Vnxnnn 


A carriage return is issued and the character > at the left margin indicates that a command 
string is expected with the FORTRAN source program on the appropriate input. 

The command string has the form: 


optionlist 4 - filename 

where the options are delimited by a left arrow and may optionally be separated by commas, 
and the string is terminated by a carriage return or ALT MODE. Filename is the name of 
the source file to compile, and its extension must be SRC. A carriage return specifies that 
FORTRAN-IV should be restarted after the current program has been compiled. ALT MODE 
returns control to the monitor. 


In RSX, the compiler is invoked from TDV by typing the compiler task name, followed by a 
command string. As provided with the XVM/RSX monitor, the compiler task name is FOR..., 
and it is invoked by typing FOR or F4F following the monitor's TDV response. The compiler 
call plus the command string has the form: 



optionlist 


filename! ,filename 2 . 


.filenameN 


The options are delimited by a left arrow, and may optionally be separated by commas. Any 
number of filenames, whose extensions are SRC, may be specified, separated by commas. The 
entire line is terminated by a carriage return or an ALT MODE, and no continuation of the 
command string is allowed. 
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For either DOS or RSX/ the option list may be empty or contain any of the following op¬ 
tions: 


Option 


Meaning 


O Object Listing 

S Symbol Map 

L Source Listing 

B Binary Output 

H Use subroutine for calculation of array element 

addresses^ 

R RSX only - print compiler version and "End 

Pass 1" on output terminal . 


The output listing file always has the extension LST. All file names must be legal FORTRAN 
symbols. At the end of pass 1, the compiler types 


END PASS1 


and allows the repositioning of a source tape if using the paper tape reader. When compil¬ 
ing from paper tape in DOS only, to initiate pass 2, the user types TP (control P). 


The following error messages indicate that the command procedures cannot be carried out: 


Message 


Meaning 


Bad command string - retype 


DOS 

RSX 


IOPS4 

lOPSn 

FORTRAN-I/O 
ERROR LUN 
xx yyyyy 


I/O device not ready - type CTRL R when ready 

See XVM/DOS User's Manual for IOPS error codes 

An I/O error occurred during compilation; 
xx represents the logical unit number (decimal) on 
which the error occurred; yyyyy is the octal event 
variable indicating the cause of the error. (See 
XVM/RSX Reference Manual for details.) 


The subroutine .SS is used to calculate the addresses of 2 and 3 dimensional array elements; 
the default uses in line code in most cases. 
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Other diagnostics which may be printed at compile time are FORTRAN error messages (see 
Appendix B, Section B.l), OTS errors are given at run time for those routines whose calls 
are generated by the compiler (see Appendix B, Section B.2). 

When the user program has been successfully compiled, it may be relocated and made abso¬ 
lute (executable) via LOAD, CHAIN, or TKB (the RSX Task Builder). 

In DOS, the Linking Loader is called by typing LOAD or GLOAD (load-and-go) after a 
monitor-issued $. The Linking Loader types 

LOADER XVM Vnxnnn 
> 

and awaits a command string specifying programs to be loaded and output options. See the 
LINKING LOADER XVM UTILITY Manual for detailed instructions. Figure 1-1 shows the 
printout from a typical XVM/DOS session from source-program preparation to loading. 

With CHAIN, the DOS user generates a system of overlays - a resident main program which 
may include resident subprograms, a resident blank COMMON storage area, and a set of 
subroutines which overlay each other at the user's request. Subroutines are organized into 
units called links which may overlay each other. Several links may overlay a larger link 
without overlaying each other. A link is loaded into core when a subroutine within the link 
is called and it remains resident until overlaid. A link's core image is not recorded or 
"swapped out" when it is overlaid. The same image is brought into core each time a link 
is loaded. See the CHAIN XVM/EXECUTE XVM Utility Manual for detailed instructions. 

In RSX, linking is accomplished by using the TDV function Task Builder (TKB). TKB is simi¬ 
lar in operation to CHAIN. Its function is to record core images in a file in the format ex¬ 
pected by the RSX INSTALL Function. The task name is used as the file name, and TSK is 
used as the extension. TKB accepts the same overlay descriptions as CHAIN, in RSX it is 
called by typing "TKB" following the Monitor's TDV request. When loaded, TKB types its 
name and version number and makes the following requests: 

LIST OPTIONS 
NAME TASK 

SPECIFY DEFAULT PRIORITY 
DESCRIBE PARTITION 
DEFINE RESIDENT CODE 
DESCRIBE LINKS AND STRUCTURE 

For further information, see the XVM/RSX System Manual, 
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X v M / D 0 S U1 A 0 0 0 

E N T I" E D A T E ( M M / D D / Y Y) •••• .1. :i. / 6 / 7 5 

PAGE MODE 32K API ON UOIS ON POU...ER ON BCR 

$LOGIN DEM 

XUH/DOS 01AO00 

PAGE MODE 32K API ON UC15 ON ROLLER ON DEM 


PIP XOM 01 AO00 


XOM/DOS 01AO00 
$ EDI T 

El El TOR XOM 01 AO 00 
>OPEN IOTST 

FILE IOTST SRC NOT FOUND, 

INPUT 

C 

C TTY t ,DAT 6 

C 

WRITE < 6 ? 100 ) 

. 1.0 0 F 0 R M A T ( 1 X ? $ IM I $ > 

READ ( 6 y ) R .1 R J. 



WRITE 

( 6 y200) 

00 

FORMAT 

<IXy 'OUT 


R3 =8 r: 

1. YY R2 


WRIT E 

(6 y ) R3 


STOP 



END 

EDI T 
>EXI T 


XOM/DOS 01A000 
$P4 


FPF4M XOM 01A001 
IOTST 
END PASS1 

I"’ R 0 0 R A M SIZ E 0 010 '5 •> N (!) E R R 0R S 

X 0 M / D 0 S 01A 0 0 0 
$ A IT 6 
$ LOAD 

Figure 1 -1 

Sample XVM/DOS Session 
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!.. l.) A .(.i I-. R X v 1 M V1 A 0 0 0 
>P_IOTST 

l :: ' IOTST 077532 

P DDK) FIS 0755:1.4 
P ,BE F06 075464 


P , EC F'O I. 075:1.72 
F' BCD TO F51 07:1256 
P -SB 009 071.1.46 


F‘ ♦ F’LTB 004 070460 
P FIOPS D40 066557 
P ,FPP FIS 070020 
P OTSER F:l.4 066344 
P <■ CB 004 066322 

- (:;■ •••' CJ 

IM 


STOP 000000 


X 0 M / D (!) S 0 :l. A 0 0 0 


Figure 1-1 (Cont.) 

Sample XVM/DOS Session 

1 0 2 SOFTWARE ENVIRONMENTS 

Each version of FORTRAN-IV has its own version of the object time system library so that 
routines may utilize both hardware and software features- Each of the monitor systems under 
which FORTRAN operates is summarized below. 


1.2,1 XVM/DOS 


XVM/DOS is a single-user, interactive, disk-resident operating system, It includes the 
DOS Monitor, I/O device handlers, and an integrated set of system programs including 
FORTRAN-IV, Program editing, loading, and debugging facilities are provided as well as 
powerful file manipulation capabilities. The DOS disk file structure supports both direct and 
sequential access to disk files, dynamic disk storage allocation, and file protection. The 
DOS Monitor itself provides the interface between the user and peripheral devices via Moni¬ 
tor calls and allows the user to load system or user programs, for example, FORTRAN pro¬ 
grams, via simple commands from the user terminal. The reader is directed to the XVM/DOS 
User's Manual , for more detailed information. 



""N 
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1.2.2 BOSS XVM 

BOSS XVM is a batch-processing monitor which is part of DOS; it, therefore, utilizes the 
DOS system programs and file structures. DOS itself has a facility to batch commands from 
cards or paper tape; BOSS, however, is a separate entity from XVM/DOS monitor batch. 

BOSS command language is batch-oriented, noniterative, easy to use, and highly flexible. 

Some highlights of BOSS XVM are: 

® Procedure driven command language 
® Job timing for accounting purposes 

• Line editor 

• Facility for user-defined commands 

1.2.3 XVM/RSX 

XVM/RSX is a monitor system designed to handle real-time information in a multiprogramming 
environment. RSX controls and supervises all operations within the system including any num¬ 
ber of core- and disk-resident programs (called tasks). The user can dynamically schedule 
tasks via simple time-directed commands issued from the terminal or from within a task. 

System software includes the FORTRAN IV compiler, the MACRO Assembler, the TASK 
BUILDER, and numerous utility programs required to edit, debug, and run user programs. 
Details are available in the XVM/RSX System Manual. 

1 .3 HARDWARE ENVIRONMENT 

Systems with an FP15 Floating-Point Processor (FPP) have a special version of the FORTRAN- 
IV compiler and OTS which utilizes hardware instructions rather than subroutine calls to 
handle certain arithmetic functions. For example, RELEAE, the REAL arithmetic package, 
is not included in FPP systems since REAL arithmetic expressions may be compiled directly 
into FPP instructions. 

The FPP FORTRAN System consists of the standard FORTRAN-IV compiler and Object-Time 
System (OTS) interfaced (via conditional assembly, and additional routines) to the hardware 
FPP. The interface applies to Single and Double Precision Floating-Point Arithmetic and 
Extended Integer Arithmetic (double integers). Single integer arithmetic is still handled 
by EAE (extended arithmetic element, KE15) instructions and, in part, by software. 
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CHAPTER 2 

INPUT-OUTPUT PROCESSING 


FORTRAN data-transmission statements automatically invoke a number of OTS subroutines which serve 
as an interface between the user program and the Monitor. These routines may also be explicitly 
referred to in a MACRO program. 

The actual transmission of data between memory and a peripheral device is, in general, performed by 
the FIOPS package, a set of routines which communicate directly with the Monitor. Other packages, 
each associated with a particular type of data-transmission statement, perform three major functions: 

a. Initialization, 

b. Transmission of data to and from the FORTRAN line-buffer in the appropriate structure, and 

c. Termination; 

The packages are: 

(1) BCDIO, processes formatted sequential READ or WRITE statements; 

(2) BINIO, processes unformatted sequential READ or WRITE statements; 

(3) AUXIO, processes auxiliary input-output statements; 

(4) RBCDIO and RBINIO, process formatted and unformatted direct-access READ and 
WRITE statements; 

(5) DDIO, manages data-directed input-output; 

(6) DCODE, processes ENCODE and DECODE statements. 

Also described in this chapter is a set of FORTRAN-callable subprograms which support OTS input- 
output functions. 

2.1 GENERAL INFORMATION 
The three major I/O functions: 

a. To associate logical devices with physical devices, 

b. To associate user data structures with device data structures, and 

c. To perform actual transfer of data 

are described in the following paragraphs. 
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2.1.1 Device Assignment 

In DOS, device assignment is managed through the monitor Device Assignment Table (.DAT) which 
associates legal device units to physical ones. .DAT has "slot" numbers which correspond to the 
FORTRAN logical device numbers. Each slot, at run time, contains the physical device unit number 
and a pointer to the appropriate device handler in memory. Sixteen entries in .DAT may be used 
for user-program device assignment performed via monitor ASSIGN commands at run time. Default 
assignments are defined during system generation. An analogous structure is maintained in the RSX 
system. It is called the Logical Unit Table (LUT), and for each Logical Unit Number (LUN) as¬ 
signed, it maintains an address to information about the associated physical device. 

2.1.2 Data Structures 

Each peripheral device has an associated data structure which governs the manner in which data are 
stored. There are basically two modes in which data may be stored externally - serially ordirectoried. 
For a sequential file, either structure may be used. If it is serial, the physical sequence of records is 
identical to the logical sequence. If it is directoried, the logical sequence is established by pointers 
which link one record to another although their physical locations need not be in sequence. For a 
direct-access file, only disks which are also directoried devices may be used. 

Serial devices used for FORTRAN Input-Output include paper tape, magnetic tape and (in certain 
modes) DEC tape. Records are transmitted directly from the user buffer to the device and an end- 
of-file is written after the last record by a CALL CLOSE or ENDFILE n. A file is accessed simply 
by virtue of device assignment. 

Magnetic tape and DECtape may also be used in a directoried mode. In this case, a directory con¬ 
taining file information is maintained. Each entry contains a filename and extension and a pointer 
to the first block of the file. Files stored in this way may be referenced in the OTS directoried 
subroutine cal Is. 

Directoried FORTRAN input-output to a disk, using DOS file structure, is a special case. This 
structure is based on a hierarchy of directories with a Master File Directory (MFD) pointing to user 
file directories (UFDs). User files are created sequentially but may be accessed either sequentially 
or directly. Data blocks (400g words per block) which comprise a file are chained via a forward 
link word (377g) and backward link word (376g). Forward links are also stored in a retrieval 
information block (RIB) for direct access. Files stored in this mode are accessed by name. This name 
may be assigned by the user via directoried subroutines (e.g., SEEK and ENTER). In DOS only, 
if this is not done, default names are used. A default name has the form .TMOmn OTS where mn 
is the logical device number in decimal. 

1 This number is the standard size for DOS but may be changed by system generation and assembly 
parameters. 


2-2 



In put-Output- Processing 


2.1.3 Data Transmission 

Data is transmitted to and from the FORTRAN-IV I/O buffer via the OTS FIOPS package. A 
single I/O buffer of 400g words is used. In DOS, the size of the buffer which is to be transmit¬ 
ted for a particular device is set in accordance with information provided in an .INIT to the de¬ 
vice used. In RSX, the size used is always that of the FIOPS buffer, 400g. 

2.2 DATA TRANSMISSION (FIOPS) 

The FIOPS package provides the necessary communication between the OTS and the I/O Device 
Handlers. Its two main functions are device assignment and the transfer of data to and from the 
FORTRAN internal I/O buffer. 

FIOPS maintains a status table with one-word entries for each device that is in use. A 
table entry is as shown below. 


I/O Flag 

OREAD 

1=WRITE 

0=SEQU . 

1 = DIR. ACC. 

For dir. 
acc. only 
1=DELETE 
0=NO 

not 

used 

Buffer size 
(from .INIT) 

0 

I 

2 


3 8 9 17 


The routines of the FIOPS package and their functions are given below. (See also the ,ZR call, described 
in paragraph 4.1.) 


FIOPS Package 

External Calls: OTSER 

Errors: OTS ERROR 10 - illegal device number 

Routine 

Function 

.FC 

.DAT slot numbers are initialized by .FC. The 

(initialize I/O Device) 

first call to .FC for any device generates a 

Call: 

monitor .INIT call which opens the file for I/O 
and enters the buffer size and I/O flag in the 

LAC DEVICE (address of slot number) 

device status table. Subsequent calls to .FC 

JMS* .FC 

call .INIT only if the I/O flag has been changed 
or the file has been closed. (In RSX, the first 

To set I/O flag: 

call to .FC sets the I/O flag and a fixed buffer 

DZM* .FH (input) 

size. Subsequent calls to .FC only reset the 

I/O Flag.) 

LAC (1) (output) 

DAC* .FH 


(continued next page) 
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FIOPS Package (Cont) 


Routine 

Function 

.FQ 

Call: 

LAC (address of .DAT slot number (bits 9-17) 
IOPS mode (bits 6-8) 

JMS* .FQ 

Data are transferred between the I/O buffer and 
an I/O device. .FQ checks the monitor I/O flag. 

If if is zero, a .READ call is made; if it is one, a 
.WRITE call is made. A call to .WAIT is made in 
either case. In RSX, the READ, WRITE, and 
WAITFOR I/O functions are used. 

• FP 

Call: 

JMS* .FP 

Sets ail words in the device status table to zero. 
Called at the beginning of all FORTRAN main 
programs to indicate that all devices are 
initialized. 

An integer function, IOERR(N), is available to the DOS user and may be invoked at an ERR 
exit to determine the I/O error which has occurred. The value of IOERR will be one of the 

following 


Value 

Error 

-I 

Parity error 

-2 

Checksum 

-3 

Short 1 ine 

-5 

End-of-file 

-6 

End-of-medium 

OTS error number 

Other errors (up to 77) 



2.3 SEQUENTIAL INPUT-OUTPUT 

Sequential input-output operations access consecutive records of a file, beginning with the first 
record and then record-by-record until the end of the file. A file which is accessed sequentially may 
be stored serially (on magnetic tape or if DOS on DECfape) or in directoried mode (on disk and 
DECtape). That is, the physical sequence of records may or may not conform to the logical sequence. 
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2.3.1 OTS Formatted Input/Output 

The formatted READ and WRITE statements generate calls to routines in the BCDIO package. Input 
and output operations are performed on a character-to-character basis under the control of a FORMAT 
statement. All BCDIO routines use FIOPS to perform transfer of data. BCDIO routines may also be 
called directly by MACRO programs. 

Each formatted record is an IOPS ASCII line with a two-word header pair. On output to a printing 
device, the first character after the header is always a forms-control character. Record length, 
given in the header, is always in terms of word-pairs. The last character in the last word-pair is 
always a carriage return. 

BCDIO routines are described below. 


BCDIO Package 

External Calls: FIOPS, OTSER, REAL, RELEAE 

Errors: OTS 10 - illegal I/O device number 

OTS 11 - bad input data (IOPS mode incorrect) 

OTS 12 - illegal format 

Routine 

Function 

.FR (.FW) 

Call: 

JMS* .FR (.FW) 

.DSA (address of .DAT slot number) 

.DSA (address of first word of FORMAT 
statement or array) 1 

Initialize BCDIO for Input (output) 

.FE 

Cal 1: 

(ones complement of mode in AC) 

JMS* .FE 

.DSA (address of data item (first word)) 

(return with original AC) 

Inputs or outputs a data item using format decoder 
(.FD). Contents of AC prior to call: 

777777: INTEGER 00 LOGICAL 

777776: REAL 

777775: DOUBLE PRECISION 

777774: DOUBLE INTEGER 

.FA 

Call: 

JMS* .FA 

.DSA (address of last word in array descriptor 
block) 

Inputs or outputs an entire array using format 
decoder (.FD). 


(continued next page) 

1 This word is 0 for data-directed (implied format) I/O. 
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BCDIO Package (Cont) 



As described in the language manual, FORMAT statements may be entered or changed at run time, 
at which point they are interpreted by BCDIO. In addition to providing the FORTRAN programmer 
with greater flexibility, this feature permits the MACRO programmer to use the formatted I/O 
capabilities of BCDIO. (See Appendix C for examples.) 


2.3.2 OTS Binary Input/Output (BINIO) 

The BINIO package processes unformatted READ and WRITE statements. Data transfer is on a word- 
to-word basis. A logical record, the amount of data associated with a single READ or WRITE 
statement, may consist of several physical records whose size (except for the last) is always the 
standard IOPS I/O buffer size. Thus, when a WRITE statement is processed, each physical record 
generated contains an ID word (word 3) in addition to the two required header words. This word 
contains a record identification number. For the first record, this is zero. The last record is 
indicated by setting bit 0 of the ID word to 1. Up to 3 77777 ^ physical records may be generated 
for a single logical record. 

For example, if four physical records are generated, the four ID words would be: 

000000 

000001 

000002 

400003 

If only one record is generated, its ID word will be 400000 signifying the first and last of a set. 

An unformatted READ statement accepts logical records of the form described above until its I/O list 
has been satisfied. If this occurs in the middle of a logical record, the remainder of the record is 
ignored. That is, the next READ will access the beginning of the next logical record. 
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The routines of BINIO are described below. 






BINIO 

External Calls: FIOPS, OTSER 

Errors: OTS 10 - illegal I/O device number 

OTS 11 - illegal input data (IOPS mode) 

Routine 

Function 

.FS 

Initializes a device for binary input and reads 

Call: 

first record. 

JMS* .FS 


.DSA (address of .DAT slot) 


X 

u_ 

Initializes a device for binary output; initializes 

Call: 

line buffer. 

JMS* .FX 


.DSA DEVICE 


.FJ 

Transfers a data item to or from the line buffer 

Call: 

(all modes). Mode of item is: 

(one's complement of mode in AC) 



777777 = INTEGER or LOGICAL 

JMS* .FJ 

777776 = REAL 

.DSA (address of item (first) word) 

777775 = DOUBLE PRECISION 

(returns with original AC) 

777774= DOUBLE INTEGER 

.FB 

Transfers an array. 

Call: 


JMS* .FB 


.DSA (address of last word in array descriptor 


block) 


.FG 

Terminates current logical record. For WRITE, 

Call- 

packs the line buffer with zeroes as required and 


sets bit 0 of the ID word. 

JMS* .FG 



2.3.3 OTS Auxiliary Input/Output (AUXIO) 


The AUXIO package processes the commands BACKSPACE, REWIND, and ENDFILE which have 
different meanings for magnetic tape and disk. In DOS, AUXIO routines issue .MTAPE monitor 
calls giving .DAT slot and a code specifying the magnetic tape function desired: 
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Code 

Magnetic Tape 

Disk 

00 

Rewind to load point 

Close file associated with .DAT slot. 

02 

Backspace record 

Pointers resumed for previous ASCII or binary line 

04 

Write end-of-file 

N.A. 


For magnetic tape, these operations require only calls to system macros. In order to simulate magnetic 
tape functions on disk, a file active table (.FLTB) must be referenced. This contains four-word entries 
for every positive .DAT slot indicating whether the file is active (open for input or output) or inactive. 
The routines of AUXIO and their serial and file-oriented functions are given below. 


In RSX, AUXIO issues the magnetic tape I/O functions BSPREC, REWIND, and WREOF. Thus, in 
RSX, the BACKSPACE, REWIND, and ENDFILE commands should be issued only to an actual magnetic 
tape device, not to a disk. _ 


AUXIO 

External Calls: FIOPS, .FLTB 

Errors: OTS 10 - illegal I/O device 

OTS 11 - illegal input data (IOPS mode incorrect) 

Routine 

Magnetic Tape 

Disk 

(DOS only) 

.FT 

(BACKSPACE) 

Call: 

JMS* .FT 
.DSA (address of 
.DAT slot) 

Repositions device at a point just prior to the 
first physical record associated with the current 
logical record. 

Resumes pointer to 
previous ASCII or 
binary line. 

.FU 

(REWIND) 

Call: 

JMS* .FU 
. DSA (address of 
.DAT slot) 

Repositions device at load point. 

Closes file. If no 
file is open, 
nothing is done. 

.FV 

(ENDFILE) 

Call: 

JMS* .FV 
.DSA DEVICE 
(address of .DAT slot) 

Closes file. Writes an end-of-file mark on tape. 

Closes file, zeroes 
words 0-3 of the 
associated .FLTB 
entry. 


On a REWIND to disk, the filename is saved; thus, subsequent sequential input-output operations will 
open that file. On an ENDFILE, the filename is lost and subsequent operations will open a default file. 
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2.4 DIRECT ACCESS I/O 

Direct access input-output files are referenced by name; records are retrieved or accessed by number 
The OTS routines which perform direct-access transmission of data are similar to their sequential 
counterparts. Before they are invoked, however, the user must provide a detailed description of 
his file. 


2.4.1 The DEFINE Routine 

The FORTRAN user establishes a direct-access file by calling the DEFINE routine, which is described 
in Chapter 6 of the FORTRAN IV XVM Language Manual. 

The following discusses the DOS implementation of DEFINE; for information on the RSX ver¬ 
sion, see the above manual. 

In DOS, the DEFINE call is: 

CALL DEFINE (D, S, N, F, V, M, A, L) 

The parameters provided to OTS for performing direct-access functions are: 

D - .DAT slot 

S - record size 

number of ASCII characters 
or 

number of binary words 
N - number of records (<1 31 071 ^ q) 

F - array reference to filename and extension; if 0, this is a temporary file 
using a default name 

V - associated variable - set to number of the last accessed record plus one 

M - mode 0 = IOPS binary (unformatted) 
non-0 = IOPS ASCII (formatted) 

A - file size adjustment indicator 
0 = no adjustment 
non-0 = adjust 

L - deletion indicator 

0 = no deletion 

non-0 = delete upon closing, if this is a temporary file 


The DEFINE routine initializes a file for direct-access in one of four ways, depending on the 
combination of parameters supplied. 

a. Simple Initialization - If F specifies a file which already exists and no adjustment has 
been indicated, DEFINE opens the file for direct access. The mode and record length 
parameters must conform to the file's characteristics. The associated variable is set to 1. 
The number of records N must be less than or equal to the actual number of records. 

b. Named File Creation - If F specifies a file which does not exist on .DAT slot D, a file 
is created according to the characteristics given in the calling arguments. If the mode 
is ASCII, the data portion is filled with spaces (040g). If the mode is binary, all data 
words are set to 0 and the ID word for each record to 400000-. 




Input-Output Processing 


c. Default-Named File Creation - If F=0 in the DEFINE call, a file is created as above but 
given a default name of the form .TMOabuOTS (unless a file of that name already exists 
on .DAT slot D) where ab specifies .DAT slot in decimal. If L=I, a bit is set in the FIOPS 
status table signifying that the file is to be deleted after an ENDFILE or CALL CLOSE to 
the .DAT slot. 

d. File Size Adjustment - If a file F exists and A is not zero, N is used to adjust the number 
of records in the file. This is done by creating a temporary file (. .TEMP OTS) on .DAT 
slot D via .DAT slot -1 which Is temporarily loaded with the .DAT slot D handler address 
and UIC. The file is copied into if one record at a time up to the number N. If the file 
is to be lengthened, null records are added. The adjusted file is then assigned a name 
according to F. V is set to I if the file is reduced. If if is lengthened, it is set to the 
old length plus one. 

The algorithm used for determining the function of DEFINE from its arguments is illustrated in the 
following flowchart. 
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From user-supplied arguments, the DEFINE routine establishes a parameter table (.PRMTB) which is 
available to direct-access input-output routines. 

Each device which has a file open for direct-access will have an active four-word entry composed as 
fol lows: 


Word 

Bits 

Information 

1 

0 

File active bit (1 if active - always set for ASCII files) 


2-n 

Number of blocks per record 


12-17 

. DAT slot number 

2 

0 

mode - 0 if binary; 1 if ASCII 


5-11 

Word pairs per record 


12-17 

Records per block (0 for binary records larger than one physical block) 

3 

1-17 

Records/file 

4 

3-17 

Address of associated variable 


.PRMTB will generally have four such entries but this number may be varied with an assembly 
parameter. 

DEFINE also initializes the file in FIOPS, setting the appropriate bits in the FIOPS status table. 

2.4.2 Formatted Input/Output (RBCDIO) 

Direct-access operations may be performed on any formatted data file conforming to DOS file 
structure and with a fixed record length. A direct-access WRITE will output formatted records which 
have the same form as with sequential operations. The distinction is that the direct-access records are 
transmitted into a series of records which already exist on the selected file. A single READ or WRITE 
will access records on the I/O device only as specified in the associated FORMAT statement. This 
means that a long I/O list will not cause a new record to be accessed, regardless of the length of 

the list, unless this access is indicated by the FORMAT statement. A carriage return is, as with 
sequential I/O, appended to each ASCII line. Any information from a previous WRITE made to a 

record which remains after the carriage return, is inaccessible. The FIOPS buffer and tables are used 
as with sequential I/O. Data transfer, however, is performed using the .RTRAN system MACRO in DOS, 
and the DSKGET and DSKPUT I/O functions in RSX. 

The RBCDIO routines described below correspond to the sequential I/O routines of BCDIO. Control 
is transferred to BCDIO for data transmission via the global entry points given. 
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RBCDIO 

External Call 

Errors: 

s: FIOPS, BCDiO (.FE, .FA), OTSER, RANCOM 

None 


Routine 

Purpose 

.RW (.RR) 


BCD direct-access WRITE (READ) sets the direct- 

Cal 1: 


access flag; sets mode switch to ASCII; initializes 


direct-access READ/WRITE (.INRRW in RANCOM); 

JMS* 

.RW(.RP) 

checks mode of existing record; initializes - .STEOR 

.DSA 

(address of .DAT slot) 

and BFLOC in BCDIO for direct-access, line buffer. 

.DSA 

(address FORMAT) 

and format decoder; sets .HILIM in BCDIO. .RW 

(AC holds integer record number) 

loads record number into .RCDNM and sets I/O 
flag in FIOPS to write. .RR loads record number 
info .RCDNM, sets I/O flag to read. 

.RF 


Terminates current logical record. Sets last record 

Call: 


flag, reinitializes . ER in OTSER and, for WRITE, 


.RTRAN out last record. If RSX, the last record 

JMS* 

.RF 

is packed, and a DSKPUT is performed if the buffer 
is fu 11. 


Entry points to BCDIO are: 

RBCDIO Entry BCDIO Routine 

.RE .FE 

•RA .FA 

2.4.3 Unformatted Input/Output (RBINIO) 

Unformatted direct-access I/O differs from formatted in two respects. If a binary record does not 
totally fill the record into which it is written, the previous contents are still accessible. If a direct- 
access WRITE requires more words than exist in each record, successive records are accessed and 
written until the I/O list is exhausted. Records are linked by ID words as for sequential files. 

The routines of RBINIO are described below. Direct-access entry points to BINIO follow. 


RBINIO 

External Calls: FIOPS, RANCOM, BINIO 

Errors: None 

Routine 

Function 

.RS (.RX) 

Call: 

JMS* .RS(.RX) 

.DSA (address of .DAT slot) 

(AC holds integer record number) 

Binary direct-access WRITE (READ) sets direct- 
access flag; sets mode switch to binary; initializes 
direct READ/WRITE (.INRRW in RANCOM); checks 
mode of existing record; initializes .BUFLC, .RDTV, 
and .WRTV in BINIO for direct access; initializes 

I/O buffer; loads record number info .RCDNM. 

.RX sets I/O flag to WRITE; .RS sets it to READ. 


(continued on next page) 
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RBINIO (Cont) 


Routine 

Function 

.RG 

Cal 1: 

JMS* .RG 

Terminates current logical record. Increments 
associated variable, reinitializes .ER in OTSER; if 
WRITE, sets last record flag and outputs final records. 


Entry points to BINIO are: 

RBINIO Entry BINIO Routine 

.RJ .FJ 

.RA .FA 

2.4.4 Initialization and Actual Data Transfer (RANCOM) 

RANCOM contains two major routines which are used by both RBCDIO and RBINIO. These routines 
perform initialization and data transfer functions which are identical to those performed for ASCII and 
Binary I/O. 


RANCOM 

External Calls: FIOPS, OTSER, DEFINE 

Errors: OTS 10 - illegal I/O device 

OTS 24 - illegal record number 

OTS 25 - mode discrepancy 

OTS 11 - illegal input data (IOPS mode incorrect) 

OTS 21 - undefined file 

OTS 23 - size discrepancy 

Routine 

Function 

.INRRW 

Initializes a direct access READ or WRITE 

Call: 


JMS* .INRRW 


(AC holds address of slot number.) 


.RIO 

For I/O cleanup: 

Call- 

Set up header pair and .RTRAN out block of data. 


For end-of - record routines: 

JMS* .RIO 

Output (if WRITE)and set pointers to new record. 


2.5 DATA-DIRECTED INPUT-OUTPUT (DDIO) 

The Data-Directed Input-Output package permits input or output of ASCII data without reference to a 
FORMAT statement. On input, DDIO extracts individual data fields by scanning the line buffer for 
terminators. It then determines the mode of the variable to which the item is to be transferred and 
converts the item to that mode if necessary. Unlike the format decoder, DDIO does not reject an item 
which is too large but simply assigns the maximum value which the variable can accomodate. On out¬ 
put, DDIO has a set of default format parameters for each type of variable. 
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The same buffer is used for both data-directed and formatted I/O, and the I/O action for both takes 
place between device and I/O list variables or vice versa. Thus, DDIO uses the same I/O 
initialization and termination routines as regular formatted I/O (found within BCDIO for sequential 
access and within RBCDIO for direct access). DDIO control routines are, however, unique due to the 
special features described above. 

The routines of DDIO are given below. 


DDIO 

External Calls: BCDIO, .SS, OTSER, FIOPS, REAL, DBLINT 

Errors: OTS 42 - bad input data 1 

Routine 

Function 

.GA 

Call: 

(one's complement of mode in AC) 

JMS* .GA 

name 1 first 3 characters , radix 50 

name 2 last 3 characters , radix 50 

. DSA address item 
(returns with original AC) 

Outputs a data item in the 'NAME'^value form. 

If the mode is 0 (integer-logical), bit 0 of the name 
word indicates which (0 for integer, I for logical). 

.GC 

Call: 

(one's complement of mode in AC) 

JMS * .GC 

name 1 
name 2 
.DSA item 

(returns with original AC) 

Outputs an array element in 'NAME(l)'=value 
form. .GC should only be used when .SS has 
been used to calculate the subscript address. 

.GB 

Call: 

JMS* .GB 
name 1 
name 2 

„DSA array descriptor block 
(word ^5 address) 

Outputs an entire array in 'NAME(l)'=value form. 

.GD 

Call: 

(one's complement of mode in AC) 

JMS* .GD 
.DSA item 

(returns with original AC) 

Inputs an item. 

.GE 

Call: 

JMS* .GE 

. DSA addr. of array descriptor block word 5 

Inputs an array. 


A For Terminal input - 'BAD INPUT DATA - RETYPE FROM INPUT WITH ERROR' is typed. 
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2 .6 ENCODE/DECODE (EDCODE) 

Encode and Decode perform memory-to-memory transfers and conversions using the apparatus established 
for formatted input-output. That is, data is transferred from memory to the I/O buffer to memory. Since 
no peripheral device is involved, the initialization and termination mechanisms of EDCODE are unique 
while the data transfer is the same as for BCDIO. 


The routines of EDCODE are given below. 


EDCODE 

External Calls: OTSER, BCDIO 

Errors: OTS 40 - illegal number of characters 

OTS 41 - array exceeded 

Routine 

Function 

.GF 

Cal 1: 

JMS* .GF 

.DSA number of characters 
. DSA array 
.DSA format 

Encode. 

. GG 

Cal 1: 

JMS* .GG 

.DSA number of characters 
. DSA array 
.DSA format 

Decode. 


2.7 USER SUBROUTINES 

The subroutines given below are FORTRAN-callable subroutines which support input-output operations. 
2.7.1 DOS Directoried Subroutines 

The directoried subroutines described below comprise a package named FILE. These routines interact 
with the DOS file-oriented data structure. 
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FILE 

External Calls: FIOPS, .DA 

Errors: OTS 10 - illegal device number 

OTS 13 - file not found (SEEK) 

OTS 14 - directory full (ENTER) 

Routine 

Call 

Purpose 

SEEK 

CALL SEEK (n,A) 

Where: 

n = device number 

A = name of array containing the 
9-characfer 5/7 AS CII fi le 
name and extension 

Finds and opens a named input file. 

ENTER 

CALL ENTER (n 7 A) 

Creates and opens a named output file. 

CLOSE 

CALL CLOSE (n) 

Terminates an input or output file 
(required when SEEK or ENTER are 
used). 

FSTAT 

CALL FSTAT (n,A,|) 

Where: 

1 ~ 0 if the file not found; 

= -1 if found and action complete 

Searches for named file. 

RE NAM 

CALL RENAM (n,A,B,I) 

Where: 

A is an array containing exist¬ 
ing name 

B is an array containing a new 
file name 

I = 0 if file not found; -1 if 
found and action complete 

Searches for named file and renames if. 

DLETE 

. 

CALL DLETE (n,A,I) 

Where: 

A is an array containing exist¬ 
ing file name 

I = 0 if file not found; -1 if 
found and action complete 

Searches for named file and deletes if. 
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2 .7.2 RSX Directorled Subroutines: 


Routine 

Calling Sequence 

Purpose 

SEEK 

CALL SEEK (n,nHname,nHext[,ev]) 

Where: 

n = LUN number 

nHname = is a Hollerith constant or 
DOUBLE INTEGER or 

REAL variable which 
specifies the 1 to 5 
character file name. 

nHext = is a Hollerith constant 

or DOUBLE INTEGER 
or REAL variable which 
specifies the 1 to 3 
character file exten¬ 
sion , 

ev = is an optional inte¬ 

ger variable which 
will if specified, con¬ 
tain upon return, the 
setting of the returned 
event variable from the 
SEEK CPB. 

Finds and opens a named input file. 


Routine 

Calling Sequence 

Purpose 

ENTER 

CALL ENTER (n,nHname,nHext[,ev]) 

Where: 

All parameters are as for SEEK 

Creates and opens a named out¬ 
put file 

Routine 

Calling Sequence 

Purpose 

CLOSE 

CALL CLOSE (n[,nHname,nHext[, ev]]) 

Terminates an input or output file 
and closes it. Also is used to 


Where: 

Parameters are as with SEEK, ex¬ 
cept file name and extension are 
optional, used only with CALL 
RENAME. 

specify the new name of a RENAME'd 
file (see RENAME) 


(continued next page) 
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Routine 

Calling Sequence 

Purpose 

RENAME 

CALL RENAME (n^Hname/nHextJ^ev]) 

Where: 

Parameters are as with SEEK. 

Open the specified file for the 
purpose of renaming if to the name 
specified in the following CLOSE 
command. 


Routine 

Calling Sequence 

Purpose 

DELETE 

CALL DELETE (n^Hname^Hexf^ev]) 

Where: 

Parameters are as with SEEK. 

Searches for named file and de¬ 
letes if. 





2.7.3 BOSS Routines 


These FORTRAN-callable routines affect BOSS I/O when called by a program running under BOSS,, 

BOSTT 

External Calls: None 

Errors: None % 


Routine 

Call 

Purpose 

TTON 

CALL TTON 

Allows output intended for the teletype to 



be printed on the teletype. 


TTOF 


CALL TTOFF 


Restores normal BOSS function by directing 
all teletype output to the line printer. 









CHAPTER 3 

THE SCIENCE LIBRARY 


The FORTRAN Science Library is a set of pre-defined subprograms which may be invoked by a 
FORTRAN-IV subprogram reference. These include intrinsic functions, external functions, the 
arithmetic-package functions, and external subroutines. Each of these may also be referenced by a 
MACRO program as may the sub-functions and OTS routines which are also part of the FORTRAN 
library. 

Descriptions of each type of subprogram are given in the following subsections. Information given for 
these include errors, accuracy, size, and external calls (to other library subprograms). Each function 
description also includes the MACRO calling sequence. Where there are two arguments, it is assumed 
that the appropriate accumulator has been loaded (accumulators are described in Section 3.4). For 
calling sequences which use the .DSA pseudo-operation to define the symbolic address of arguments, 
400000 must be added to the address field for indirect addressing. 

FORTRAN library subprograms are called by FORTRAN programs in the manner described in the 
Language Manual. Subprograms called by MACRO programs must be declared with a .GLOBL 
pseudo-operation as in: 

Examples: 

Standard System Floating Point (FPP) System 


TITLE 

GLOBL SIN, .AH 


.TITLE 

.GLOBL SIN 
FST = 713640 


JMS* SIN 
JMP .+2 
.DSA A 
JMS* .AH 
.DSA X 


/JUMP beyond argument 
/+400000 if indirect 
/store in real format at 

/X 


JMS* SIN 
JMP .+2 
.DSA A 
FST 

.DSA X 


X 


.DSA 0 
.DSA 0 


X 


DSA 0 
DSA 0 


The number and type of arguments in the MACRO program must agree with those defined for the sub- 


3 -1 


program. 
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3.1 INTRINSIC FUNCTIONS 

Table 3-1 contains a description of each of the intrinsic functions in the FORTRAN library. 

Intrinsic functions may be explicitly named, as when referenced via an arithmetic statement. 
For example 

X = ABS(A) 

They must have proper mode specification, and the correct number of arguments. 

References to intrinsic functions are also generated implicitly. For instance, when 
X = A**B 

is coded, and A and B are type REAL, a call to .BE is generated. 

(Table 3-1 begins on the following page.) 
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INTEGER, REAL 

INTEGER, REAL 

DOUBLE 

DBLINT 

Accuracy 

(Bits) 

N.A. 




Errors 

None 




Calling Sequence 


JMS*SUBR 

JMP .+T1+1 

. DSA ADDRof ARG1 

.DSA ADDRof ARGn 


) 
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Symbolic 

Name 

Integer 

min/max 

(IMNMX) 

MAXO 

MI NO 

AMAXO 

AMINO 

Real 

min/max 

(RMNMX) 

AMAXI 

AMIN1 

MAXI 

MINI 

Double¬ 

precision 

(DMNMX) 

DMAX1 

DMIN1 

Double 

integer 

(JMNMX) 

JMAXO 

JMINO 

Definition 

VAR - max or min value of 
arglist 

Function 

Maximum/ 
minimum value 
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3.2 EXTERNAL FUNCTIONS 

Table 3-2 describes the external functions of the FORTRAN library. An external function is a sub¬ 
program which is executed whenever a reference to it appears within a FORTRAN expression and which 
returns a single value. 

A description of the algorithm applied in implementing each of these functions is given below. 


3.2.1 Square Root (SORT, DSQRT) 

A first-guess approximation of the square roof of the argument is obtained as follows: 

If the exponent (EXP) of the argument is odd: 

, EXP-1 v , EXP-1 ' 

P Q = .5 1 2 j +ARG 1 2 } 

If EXP is even: 


p o = - 5 


EXP 

2 


) (^- P - 
'+ARG ^ 2 


1 ) 


Newton's iterative approximation, below, is then applied four times. 


P i + l = 2( p i + 


ARG . 
P. > 


3.2.2 Exponential (EXP, DEXP) 

The following description also applies to the sub-functions ,EF and . DF. 

The function e X is calculated as 2 X ^ 0g 2 p (xlc^E will have an integer portion (I) and fractional portion 

(F». 

Then: 

e X = ( 2 1 ) ( 2 F ) 

Where: 


n . 0 

= { h c ^ 


n = 6 for EXP and .EF 
n = 8 for DEXP and .DF 


~A 





"~\ 
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The values of C. are given below. 


Value of i 


0 

1 

2 

3 

4 

5 

6 

7 

8 


Value of C. 

i 

1.0 

0.34657359 

0.06005663 

0.00693801 

0.00060113 

0.00004167 

0.00000241 

0.00000119 

0.00000518 


3.2.3 Natural and Common Logarithms (ALOG, ALOG10, DLOG, DL.OG10) 

The exponent of the argument is saved as the integral portion of the result plus one. The fractional 
portion of the argument is considered to be a number between 1 and 2. Z is computed as follows: 


7 - X-/2 

X+i/2 


Then: 


Where: 


log,X=i+(X 
z i=0 



n = 2 (ALOG) 
n = 3 (DLOG) 

The values of C are given below: 


ALOG and ALOG 10 

C ] = 2.8853913 

C 3 = 0.96147063 

C = 0.59897865 
5 


DLOG and DLOG1Q 

Cj = 2.8853900 

C 3 = 0.96180076 

C c = 0.57658434 

5 

C 7 = 0.43425975 


(continued next page) 
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The final computation is: 

ALOG and DLOG: 
ALOGIO and DLOGIO: 


loPgX = 0°g 2 x ) ( Io 9 e 2 ) 

,og 10 X = ( ,og 2 X ) ( ,og K) 2 ^ 






3.2.4 Sine and Cosine (SIN, COS, DSIN, DCOS) 


This description also applies to the sub-functions .EB and .DB. 

The argument is multiplied by 2/it for conversion to quarter-circles. The two low-order bits of the 
integral portion determine the quadrant of the argument and produce a modified value of the fractional 
portion (Z) as follows. 


Low-Order Bits 

00 

01 

10 

11 


Quadrant 

I 

II 

III 

IV 


Modified Value (Z) 
F 

1-F 

-F 

-(1-F) 


The value of Z is then applied to the polynomial expression: 
ft O •_!_ *1 

sin X = ( 2 C....2T' ') 
i=0 21+1 

n = 4 for SIN, COS, .EB 
n = 6 for DSIN, DCOS, .DB 


The values of C are as follows: 

SIN, COS, .EB 
C = 1.570796318 
C = -0.645963711 

vj 

C c = 0.079689677928 
o 

C_, = -0.00467376557 
C 9 = 0.00015148419 


DSIN, DCOS, .DB 

Cj = 1.5707932680 

C 3 = -0.6459640975 

C_ = 0.06969262601 
o 

C y = -0.004681752998 
C 9 = 0.00016043839964 
C n = -0.000003595184353 
C 3 = 0.000000054465285 

(continued next page) 
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The argument for COS and DCOS is adjusted by adding n/2. The sin subfuncfion is then used to 
compute the cosine according to the following relationship: 

COS X = sin (™+X) 


3.2.5 Arctangent (ATAN, DATAN, ATAN2, DATAN2) 

The following description also applies to the sub-functions .ED and .DD, 


For arguments less than or equal to 1, Z = arg and: 

arctangent arg = (.j Q Z 2 ' + ^) 

n = 3 for ATAN and ATAN2 
n - 7 for DATAN and DATAN2 


For arguments greater than ], Z = l/arg and: 

arctangent arg = -J- -(2 Q C^^Z 2 '^) 

n = 3 for ATAN and ATAN2 
n = 8 for DATAN and DATAN2 


The values of C are given below. 

ATAN and ATAN2 
C = 0.9992150 

C 3 = -0.3211819 

C c = 0.1452766 
5 

C ? = -0.0389929 


DATAN and DATAN2 
C = 0.9999993329 
C 3 = -0.3332985605 
C c = 0.1994653599 

D 

C 7 = -0.1390853351 

C 9 = 0.0964200441 

C n = -0.0559098861 

C ]3 = 0.0218612288 

C 1c = -0.0040540580 
lo 


3,2,6 Hyperbolic Tangent 

The hyperbolic tangent function is defined as: 


tanh I X I = (1- 


1+e 


2 | X 


■) 


x 

e is ca 


Iculated as 2 X ^°®2 e (xlog 2 © will have an integral portion (I) and a fractional portion (F)). 

(continued next page) 
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Then: 

e X = (2 I )(2 F ) 

Where: 


C n . 0 

2 F =(X C.F 1 ) 2 
i=0 1 

n = 6 

The values of C. are: 

i 

Value of i 

0 

1 

2 

3 

4 

5 

6 


Value of C. 
_ \_ 

1.0 

0.34657359 

0.06005663 

0.00693801 

0.00060113 

0.00004167 

0.00000241 


3.3 SUB-FUNCTIONS 

Table 3-3 describes the sub-functions which are included in the FORTRAN library. These functions 
are referenced by intrinsic and external functions but are not directly accessible to the user via 
FORTRAN. The sub-function .EB, for example, performs the computation of sine and is invoked by 
the external function SIN. MACRO programs may reference sub-functions directly. Algorithms for 
all sub-functions which have counterparts among external functions were given in the previous sub¬ 
section. This leaves the two general sub-functions Logarithm, base 2 and polynomial evaluator. Their 
algorithms are given below. 


3.3.1 Logarithm, Base 2 (.EE, .DE) 


The exponent of the argument is saved as the integer portion of the result plus one. The fractional 
portion of the argument is considered to be a number between 1 and 2. Z is computed as follows: 


Z = 


X- /T~ 

x+ 


(continued page 3-14) 
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Then: 

lo 32 X = 5 +( .^ C 2 i+ l z2!+, > 

1=0 

n = 2 (.EE) 
n = 3 („DE) 


The values of C are: 


.EE 


.DE 


C = 2.8853913 

C 3 = 0.96147063 

C = 0.59897865 
5 


C = 2.8853900 

C 3 = 0.96180076 

C c = 0.57658434 
5 

C ? = 0.43425975 


3.3.2 Polynomial Evaluator (.EC, .DC) 

A polynomial is evaluated as: 

X = Z(C Q + z 2 (C .. .+ z 2 (C n Z 2 + C n-1 ))) 

3.4 THE ARITHMETIC PACKAGE 

The arithmetic package contains the OTS arithmetic routines which are invoked by FORTRAN arith¬ 
metic expressions. These routines may also be called directly by MACRO programs. Versions of 
FORTRAN-IV designed for use with the Floating Point Processor (FPP) require only single integer 
arithmetic routines. Double (extended) integer arithmetic will be handled by the hardware. 

The three major routines of the arithmetic package are INTEAE, RELEAE,and DOUBLE. INTEAE 
contains integer arithmetic routines; RELEAE, real and floating arithmetic; and DOUBLE, double¬ 
precision arithmetic. 

A description of these routines is given in Table 3-4. In the "calling sequence" column, reference 
is made to three accumulators - the A-regisfer, the floating accumulator, and the held accumulator. 
The A-register is the standard XVM hardware accumulator. The floating and held accumulators are 
software accumulators which are part of the RELEAE package. The held accumulator is used as tempo¬ 
rary storage by some routines. Both consist of three consecutive XVM words and have the format 
shown below. (Negative mantissae are indicated by a change of sign.) 
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Held AC Labels Floating AC Labels 



CE02 


CE03 



The format shown above is that used for double-precision numbers. Single-precision numbers must be 
converted before and after use in the floating accumulator to the single-precision format: 


Low-order 

mantissa 

Exponent 

(2*s complement) 


0 

89 


17 

Sign of 
mantissa 

High-order 

mantissa 


0 

1 


17 


RELEAE routines check for underflow and overflow and set a flag (.OVUDF) in the REAL store routine 
. AH as fol lows: 

Flag Meaning Action 

non-0 positive value overflow - an attempt to store ± largest representable real 

a REAL constant whose binary value stored (DOS); 

exponent is greater than 377g 

negative value underflow - an attempt to store zero is stored 

a REAL constant whose binary 
exponent is less than -400g 

zero default value value is stored 

The user may test this flag under program control using the logical function IFLOW. Recoverable OTS 
messages are also given (see Appendix B, Section B.2). 

Division by zero is also checked and a flag .DZERO set to zero (default value is'777777g) in the 
general floating divide routine (.Cl). The result of the division is ± the largest representable value. 
An OTS error message is also given for this condition. The user may test .DZERO under program 
control using the logical function IDZERO. 
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The flags .OVUDF and .DZERO can only be initialized by reloading the program, by a separate 
user program, or by IFLOW or IDZERO. These functions are described below. 


Routine 

IFLOW 

Purpose 

Checks underflow and overflow 

Call 

IORLV = IFLOW(I) 

External Cal Is 

.DA 

Errors 

None 


The argument I indicates the check to be performed and values are returned as follows: 


I 

Action 

Value 

0 

no check 

0(.FALSE) flag unchanged 

<0 

underflow check 

-I(.TRUE) if underflow - flag set to 0; 
else 0 (.FALSE) and flag unchanged 

>0 

overflow check 

-l(.TRUE) if overflow - flag set to zero; 


else 0 (.FALSE) and flag unchanged. 


• 

Routine 

IDZERO 

Purpose 

Checks for division by zero 

Call 

IORLV = IDZERO (I) 

External Calls 

.DA 

Errors 

None 


If 1=0, no check is made, IORLV = 0(.FALSE) and the flag is unchanged. If 1 ^ 0 , a check is made. 

If an attempt at division by zero was made, IORLV = -I (.TRUE) and the flag is reinitialized. Other¬ 
wise the flag is unchanged and IORLV = 0(.FALSE). 
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quotient bit (400 for single precision, 1 for double precision). 








CHAPTER 4 
UTILITY ROUTINES 


Two types of subprogram are described in this chapter - OTS routines, automatically invoked by 
FORTRAN statements, and external subprograms which may be invoked via a FORTRAN CALL statement. 
Both types are accessible to MACRO programs. 


4.1 OTS ROUTINES 

OTS utility routines perform a number of functions specified by FORTRAN statements. These functions 
of FORTRAN, like the input-output functions discussed previously, use OTS as an interface between 
the user program and the monitor environment in which it will operate. 

Each of these routines is described below. 


Routine 

.SS 

Purpose 

Calculates the 

address of an array element 

Calling 

.GLOBL 

.SS 

Sequence 

JMS * 

.SS 

.DSA 

address of fifth word of array 
descriptor block 



LAC or LAC* 

first subscript value 


LAC or LAC* 

second subscript value, 
omitted if only one subscript 


LAC or LAC* 

third subscript value, 

omitted if only one or two subscripts 


DAC 

into location at which subscript is used 
(This instruction is XCT'd by ,SS) 


(returns at location following DAC, with one's 
complement of mode of array in AC) 

External Calls 

None 

Errors 

None 


.SS references the array-descriptor block associated with the array whose element is to be located. 
An array descriptor block is a five-word table with the contents described below. 




Utility Routines 




Word 1 


Word 2 


Word 3 


Word 4 


Word 5 

Size is determined by multiplying the dimensions of the array by the number of words (N) used for a 
data item of the specified mode (M). Thus, an INTEGER array defined by DIMENSION (2,2,2) has 
the size 8 in word 2, the size 2 in word 3, and the size 4 in word 4. A REAL array of the same 
dimensions will have 16, 4, and 8 in these locations. 

NDIM is the number of dimensions in the array. 

The values of M and N for the various data modes are: 


Array Mode 

M 

N 

INTEGER, LOGICAL 

00 

1 

DOUBLE INTEGER 

n 

2 

REAL 

01 

2 

DOUBLE PRECISION 

10 

3 


0 - for one-dimensional array 
Size of first dimension 


0 - for one- and two-dimensional arrays 
Size of the first two dimensions 


Address of first word of array 


0 

NDIM 

0 

Data 


-1 


Mode 

0 

1 2 


16 17 



Size (in words) 


The address of an array element A(K^, K^K^) is calculated by .SS using the following formula: 

addr = WD4 + (K -1) * N + (K -1) * WD2 + (Kg-1) * WD3 

FORTRAN subprograms maintain an array descriptor block that is local for every array declared, in¬ 
cluding dummy arrays® Further, the dimensioning information of a dummy array may include inte¬ 
ger dummy parameters, such as in 

SUBROUTINE SUB (X,ARRAY,Y,I,J) 

DIMENSION ARRAY (5,1, J) 



1 




•A 
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Utility Routines 


Such arrays are called adjustable arrays,, In systems preceding the XVM, it was necessary to use 
subroutines ADJ, ADJ1, ADJ2, or ADJ3 to perform this type of operation; it is now handled auto¬ 
matically, by implicitly generated calls to the OTS subroutine .DJ. The MACRO program, if it 
uses .DA to fetch arguments, will not have access to the ADB in a calling program. It will prob¬ 
ably need a local ADB, and to make use of .DJ, Further information about this appears in Section 
5.1 . 


Routine 

.DJ 

Purpose 

Completes dimensioning information in 
array descriptor block of an adjustable array 

Cal ling 

Sequence 

JMS* .DJ 

. DSA address of word 5 of array 

descriptor block 

| .DSA integer value of constant first 

J maximum dimension 

1 ° r 

.DSA 400000 + address of dummy integer 

' used as first maximum dimension 

.DSA same for second subscript, if any 

.DSA same for third subscript, if any 

External 

Cal Is 

None 

Errors 

None 



A . DJ call is generated for each adjustable array in a subprogram. It uses constant and adjustable 
dimensions to complete the dimensioning information in the array descriptor block, to the format 
described above. 


Routine 

.GO 

Purpose 

Computes index of computed GO TO 

Call ing 

Sequence 

LAC V / index value in A-register 

JMS* .GO 

-N / number of statement address 

STMT(l) 

STMT(2) 

STMT(N) 

External Calls 

OTSER 

Errors 

OTS 7 - illegal index (< 0) 
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Utility Routines 


STOP 


PAUSE 


OTSER 


Routine 

.ST 

Purpose 

Processes STOP statement (returns to monitor) 

Cal 1 ing 

LAC (number) /octal number to be printed 

Sequence 

JMS* .ST 

External Cal Is 

.SP 

Errors 

None 


Routine 

.PA 

Purpose 

Processes PAUSE. Waits for -tP and returns control 
to user program (DOS), waits for operator to RESUME 
task being executed (RSX). 

Cal 1 ing 

Sequence 

LAC (number) /octal number 

JMS* .PA 

External Cal Is 

.SP 

Errors 

None 


Routine 

.SP 

Purpose 

Prints octal number for PAUSE and STOP (DOS). 

Zero assumed if none supplied. See 4.4 for RSX 
behavior. 

Calling 

Sequence 

LAC (number) /octal integer 

JMS* .SP 

.DSA (control return for PAUSE) 

LAC (first character) 


LAC (sixth character) 

External Calls 

None 

Errors 

None 


Routine 

.ER 

Purpose 

To print error messages on Teletype and take 


action according to class of error 

Calling 

JMS* .ER 

Sequence 

.DSA (error number) 

External Calls 

None 

Errors 

None 







I 




"A 
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OTSER 

(continued) 


Routine 

.ZR 

Purpose 

Initializes END and ERR exits in READ and WRITE 
statements 

Cal ling 

Sequence 

JMS* .ZR 

.DSA END address 

.DSA ERR address 

(The AC is saved and restored to accommodate Direct 
Access I/O. Both addresses appear if either END 
or ERR is coded; if one of the two exits is not specified 
a zero appears instead of an address. The call sets 
a gate in OTSER to allow branching to the specified 
address when an OTS error would have occurred in the 
absence of the special exit.) 

External 

Cal Is 

None 

Errors 

None 





Recoverable errors are indicated when bit 0 of the error number is a 1. In this case, the AC and link 
are restored to their original contents and control is returned to the calling program at the first loca¬ 
tion following the error. 

Unrecoverable errors are indicated when bit 0 of the error number is 0. Control is returned to the 
monitor by means of an .EXIT function. In the case of an unrecoverable error in a FORMAT statement, 
the current 5/7 ASCII word pair of the erroneous FORMAT is also printed. The calling sequence for 
,ER for a FORMAT statement differs from other calls and is: 

JMS* .ER 
.DSA 12 

LAC chars 
LAC chars 

PARTWD 


Routine 

.PB 

Purpose 

Part word fetch result in AC or ACMQ 

Calling 

JMS* .PB 

Sequence 

. DSA address 

External Calls 

None 

Errors 

None 


/ error number 
/ current 5 characters 
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PARTWD (continued) 


Routine 

.PC 

Purpose 

Stores contents of AC or ACMQ 

Cal ling 

JMS* .PC 

Sequence 

.DSA address 

External Calls 

None 

Errors 

None 


4.2 FLOATING POINT PROCESSOR ROUTINES 


General 

Inter¬ 

face 

Routine 

.FPP 


Extended 

Integer 

(Double 

Integer) 

Interface 

Routines 


Routine 

.AX 

Purpose 

FPP version of software .AX 

Routine 

.AW 

Purpose 

FPP version of software .AW 

Routine 

.ZA 

Purpose 

Loads high order mantissa of FPP AC into the 
regular AC 

Routine 

.ZB 

Purpose 

Initializes FPP error handling 

Routine 

Entry point defined by JEA address 

Purpose 

Error handling 


Routine 

.zc 

Purpose 

Converts integer in CPU AC to extended integer in 
FPP AC 

Routine 

.ZD 

Purpose 

Converts extended integer in FPP AC to single 
integer in CPU AC 

Routine 

.ZE 

Purpose 

Return, in AC, 0 if Dl=,0, 1 if D 1 >0, -1 if Dl <0. 


4.3 FORTRAN-CALLABLE UTILITY ROUTINES 

These routines are described in Table 4-1 . 

4.4 RSX LIBRARY (.LIBRX BIN OR .LIBFX BIN) ROUTINES 

A special set of routines is provided for use with XVM/RSX s These libraries include, in 
addition to the subprograms described previously, numerous FORTRAN-callable external subrou¬ 
tines for operations peculiar to RSX. For further details refer to the XVM/RSX System Manual, 
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Table 4-1 

FORTRAN-Callable Utility Routines 


Utility Routines 
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Not supported with RSX. Other RSX supplied routines can be used for this purpose. (continued next page) 





Utility Routines 


OTS routines which have been modified for RSX are: 

FIOPS - modified to use the RSX I/O CAL'S. „FP, which initializes the I/O status table 
has been converted to a dummy subroutine. 

If a Negative Event Variable occurs as a result of a FIOPS issued I/O request, an 
error message (OTS 20) is issued and the task is EXITed. 

SPMSG - rewritten to include the task name. The message is output to LUN 4 in the 
fol lowing format: 


STOP - 000001 - TSKNAM 

The PAUSE message is always output, but the STOP message is output only if 
its argument is non-zero. 

STOP - uses RSX EXIT CAL 

PAUSE - SUSPENDS the issuing task. To continue, the RESUME MCR function is used. 
OTSER - passes its name and an octal OTS error message number to SPMSG. 


/****&%> 



I 


Additional routine used by RSX for bank/page mode determination is .BP. 


Two additional OTS routines are given below: 


.ASCII 

to 

. SIXBT 
Conver¬ 
sion 


Routine 

.FT SB 

Purpose 

To convert two words from .ASCII to .SIXBT 

Calling Sequence: 

SUBA 0 

JMS* .DAA / get call args 

JMPARGEND 

FROM 0 / Pointer to ASCII word-pair 

ARGEND JMS* .FTSB 

.DSA FROM 
. DSA TO 

TO .BLOCK 2 / two .SIXBT words 



.DAA is a routine which performs the argument list transfer function formerly performed by .DA. The 
calling sequence has not been changed, but the transfer stops with the end of the shortest argument. 
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CHAPTER 5 

FORTRAN-IV AND MACRO 


In previous chapters, MACRO calling sequences have been given for OTS and Science Library Sub¬ 
programs. This general form is used in a MACRO program to call any FORTRAN external subroutine 
or function. A FORTRAN program may also invoke MACRO subprograms. The method for each type 
of linkage is given below. 

5.1 INVOKING MACRO SUBPROGRAMS FROM FORTRAN 

A FORTRAN program may invoke any MACRO program whose name is declared in a MACRO .GLOBL 
statement. The MACRO subprogram must also include the same number of open registers as there are 
arguments. These will serve as transfer vectors for arguments supplied in the FORTRAN CALL statement 
or function reference. A FORTRAN-IV program and the MACRO subprogram it invokes are shown 
below. More extensive examples are given in Appendix C. 


FORTRAN 

MACRO 

C 



* TITLE 

MIN 


c 

TEST MACRO SUBR 


, GLOBL 

MIN* <• DA 


c 

READ A NUMBER <A) 

MIN 

0 


/ENTRY % EXIT 

c 



JMS* 

, DA 

/GENERAL GET 

:i. 

READ (lr100) A 




/ARGUMENT, 

100 

FORMAT <E12.4> 


JMP 

.+2+ .1. 

/JUMP AROUND 

c 





/THE ARGUMENTS, 

c 

NEGATE THE NUMBER 

MINI 

♦ DSA 

o 

/ARG1 

c 

AND PUT IT IN B 

MIN2 

* DSA 

0 

/ARG2 

c 



LAC* 

MINI 

/FIRST WORD OF A 


CALL. MIN <AyB) 


DAC* 

MIN 2 

/STORE AT B 

c 



ISZ 

MINI 

/ P 01N "f T 0 S E C 0 N D W 0 R D 

c 

WRITE OUT NUMBER (B) 


ISZ 

MIN 2 

/OF A AND B, 

c 



LAC* 

MIN1 

/SECOND WORD OF A* 


WRITE (2 v 100) B 


PAL 


/SIGN BIT =' 1* 


STOP 


CML 


/ 


END 


RAR 


./ 




DAC* 

MIN2 

/STORE IN SECOND 






/WORD OF B, 




JMP* 

* END 

MIN 

/EXIT 
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FORTRAN-1V and MACRO 


The FORTRAN statement CALL MIN(A / B) is expanded by the compiler to: 

00013 JMS* MIN /to MACRO subprog 

00014 JMP $00014 
00015 .DSA A 
00016 .DSA B 

$00014= 00017 s 


When the FORTRAN-IV program is loaded, the addresses (plus relocation factor) of A and B are stored 
in registers 15 and 16, respectively. When the MACRO program invokes .DA, these addresses are 
stored in MINI and MIN2 and the values themselves are accessed by indirect reference. 

Arguments are, as described above, transmitted by .DA using a single word. Bits 1-17 contain the 
17-bit address of the first word. FORTRAN uses bit 0 to indicate that the word specifying the argu¬ 
ment contains the address of a word containing the address of the first word of the argument. The 
MACRO argument word always contains the address of the first word of the argument. For array 
name arguments (unsubscripted), the address of the first word in the array is given. If the MACRO 
program needs to know the array dimensions, either they must be passed as parameters or .DA must 
not be used. The parameter list entry in a calling FORTRAN program for an array reads .DSA 400000 
+address of last word of the Array Descriptor Block (ADB). From this, if .DA is not used at the 
called entry point, the address of the ADB can be obtained. 

For external functions, the MACRO subprogram must return with a value in the AC (LOGICAL, 
INTEGER), AC-MQ (DOUBLE INTEGER) or in the floating accumulator (REAL or DOUBLE PRECISION). 






5.2 INVOKING FORTRAN SUBPROGRAMS FROM MACRO 

The MACRO calling conventions for FORTRAN subprograms are: the name of the subprogram must be 
declared as global; there must be a jump around the argument address; and the number and mode of 
arguments in the call must agree with those of the subprogram. This form is shown below. 


.TITLE MACPRG 
.GLOBL SUBR 
JMS* SUBR 
JMP ,+N+l 
.DSA ARG1 
.DSA ARG2 


.DSA ARGN 


/ jump around arguments ignored by .DA 
/ address of first argument - bit 0 set to 1 
/ indicates indirect reference 



When the subprogram is compiled, a call is generated to .DA which performs the transmission of 
arguments from MACRO. The beginning of a subroutine might be expanded as follows. 
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FORTRAN-IV and MACRO 



i ,^<, 




C 

000000 
000001 
000002 
000003 
000004 

$ 000002 = 000005 

If a value is to be returned by the subroutine, it is most convenient to have this be one of the calling 
arguments. An external function is called in the same manner as a subroutine but returns a value in 
the AC (single integers), AC-MQ (double integers), or floating accumulator (real and double-precision). 
To store the AC, the MACRO program uses a DAC instruction. Values from the floating accumulator 
may be stored via the OTS routines .AH (real) and .AP (double-precision). For FPP systems, values 
are returned in a hardware accumulator and stored with an FST instruction. 

A number of examples of MACRO-FORTRAN linkage are given in Appendix C. 

5.3 COMMON BLOCKS 

FORTRAN COMMON blocks (and block-data subprograms) may be linked to MACRO programs. 

Note that if the values are REAL (two words) or DOUBLE PRECISION (three words), the MACRO program 
must account for the number of words when accessing specific variables. 

DOS and RSX MACRO programs may also use the .CBD pseudo-op. For instance 
BASE1 .CBD NAME, 1 

will provide the base address of the common block NAME in the word that is created and labeled 
BASE1; the size of the common block is 1 . For blank common (which is given the special system 
name of .XX), use for example: 


TITLE SUBR 

SUBROUTINE SUBR(A,B) 
CAL 0 
JMS* .DA 
JMP $000002 
. DSA A 
. DSA B 


BASE2 .CBD .XX, 2 
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APPENDIX A 


FORTRAN LANGUAGE SUMMARY 


A.l EXPRESSION OPERATORS 


Operators in each type are shown in order of descending precedence. 


Type 

Operator 

Operates Upon 

Arithmetic 

** 

exponentiation 

arithmetic or logical constants. 


- 

unary minus 

variables, array elements, 


*,/ 

multiplication. 

function references and 



division. 

expressions 


+/“ 

addition and sub¬ 
traction (but not 
unary minus) 


Relational 

.GT. 

greater than 

arithmetic or logical constants, 


.GE. 

greater than or equal to 

variables, array elements, 


.LT. 

less than 

function references and expres- 


.IE. 

less than or equal to 

sions (all relational operators 


.EQ. 

equal to 

have equal priority) 


• 

LU 

Z 

not equal to 


Logical 

.NOT. 

.NOT.A is true if and 
only if A is false 

logical or integer constants, 
variables, array elements, 
function references and expres- 


.AND. 

A.AND.B is true if and 
only if A and B are both 

sions 



true 



.OR. 

A.OR.B is true if and 




only if either A or B or 
both are true 



.XOR. 

A.XOR.B is true if and 
only if A is true and B 
is false or B is true and 

A is false 






FORTRAN Language Summary 


A„2 STATEMENTS 


The following summary of statements available in the FORTRAN IV XVM language defines 
the general format for the statement,, If more detailed information is needed, the reader is re¬ 
ferred to the Section(s) in the FORTRAN IV XVM Language Manual dealing with that particu¬ 
lar statement,, 


Statement Formats Effect 


Arithmetic/Logical Assignment 


TV 


,v =e 
n 


v. is a variable name or an array element name 

e is an expression 


The value of the arithmetic or logical 
expression is assigned to each variable, 
from right to left,, 


Arithmetic Statement Function 


FORTRAN IV XVM 
Language Manual 
Section 


3.1 


f(p[/p] ...)=e 

f is a symbolic name 

p is a symbolic name 

e is an arithmetic expression 

Creates a user-defined function having 
the variables p as dummy arguments. 
When referenced, the expression is 
evaluated using the actual arguments 
in the function call. 

ASSIGN s TO v 

s is an executable statement label 

v is an integer variable name 

Associate the statement number s with 
the integer variable v for later use in 
an assigned GO TO statement. 


8.1 .1 
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Statement Formats 


Effect 


FORTRAN IV XVM 
Language Manual 
Section 


BACKSPACE u 6.8.2 

u is an integer variable or constant 

The currently open file on logical unit 
number u is backspaced one record. 

BLOCK DATA 8.1.5 

Specifies the subprogram which follows 
as a BLOCK DATA subprogram. 

CALL s[(a[,a]...)] 4.5 

s is a subprogram name 

a is an expression, a procedure name, or an array name 

Calls the SUBROUTINE subprogram with 
the name specified by s, passing the 
actual arguments a to replace the dummy 
arguments in the SUBROUTINE definition. 


COMMON [/[cb]/] nlist [/[cb]/ nlist] ... 

5.4 

cb 

is a common block name 


nlist 

is a list of one or more variable names, array names, or 
array declarators separated by commas. 

Reserves one or more blocks of storage space 
under the name specified to contain the vari- 
ables associated with that block name. 


CONTINUE 

Causes no processing, and is most often used 
to terminate DO loops. 

4.4 

DATA nlist/cl 

Iist/[,nlist/clist/] ... 

5.7 

nlist 

is a list of one or more variable names, array names, 
or array element names separated by commas. Subscript 
expressions must be constant. 


clist 

is a list of one or more constants separated by commas, 
each optionally preceded by j*, where { is a nonzero, 
unsigned integer constant. 

Causes elements in the list of values to 
be initially stored in the corresponding 
elements of the list of variable names. 
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Statement Formats Effect 


DECODE (c / a[fj[ / ERR=s])[list] 

c is an integer expression 

a is an array name 

f is a FORMAT statement label or array name 

s is a statement label 

list is an I/O list 

Changes the elements in the I/O list from 
ASCII into the desired internal format; c 
specifies the number of characters, f speci¬ 
fies the format, and a is the name of an 
array containing the ASCII characters to be 
converted. 

DIMENSION a(d)[,a(d)]... 5.3 

a(d) is an array declarator 

Specifies storage space requirements for 
arrays „ 


FORTRAN IV XVM 
Language Manual 
Section 


6,9 


DO s i = vl, v 2[,[-]v3] 4.3 

s is the label of an executable statement 

i is an integer variable name 

vn are integer expressions 

1 . Set i = vl 

2, Execute statements through statement number s 
3« Evaluate i = i+v3 

4. Repeat 2 through 3 for INT((v2-vl )/v3) 
iterations 

ENCODE (c,a, [f][, ERR=s])[ 1 ist] 6.9 

c is an integer expression 

a is an array name 

f is a FORMAT statement label or an array name 

s is a statement label 

list is an I/O list 
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Statement Formats Effect 


ENCODE (cont.) Changes the elements in the list of vari¬ 

ables into ASCII format; c specifies the 
number of characters in the buffer, f 
specifies the format statement number, and 
a is the name of the array to be used as 
a buffer o 

END 

Specifies the physical end of a program 
unit. 

ENDFILE u 

u is an integer variable or constant 

An end-file record is written on logical 
unit u, following output statements to 
that unit. 


ENTRY nam(p[,p]...) 


nam is a symbolic name 

p is a symbolic name 

Defines an alternate entry point within 
a SUBROUTINE or FUNCTION subprogram. 

EQUIVALENCE (nlist)f, (nlist)]_ 


FORTRAN IV XVM 
Language Manual 
Section 


4.9 


6.8.3 


8.1 .4 


5.5 


nlist is a list of two or more variable names, array names, or 

array element names separated by commas. Subscript ex¬ 
pressions must be constant. 

Each of the names (nlist) within a set of parentheses 
is assigned beginning at the same storage location. 

EXTERNAL v[,v]... 

v is a procedure name 

Informs the system that the names specified 
are those of FUNCTION or SUBROUTINE 
programs. 

EXTERNAL v[,v]... 

v is a procedure name 

Informs the system that the names specified 
are user-defined. 


5.6 


5.6 
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Statement Formats 


Effect 


FORTRAN IV XVM 

Language Manual 
Section 


FORMAT (field specification, . . .) 

Describes the format in which one or more 
records are to be transmitted; a statement 
label must be present,, 


[typ] FUNCTION nam(p[,p]...) 

typ is a type specifier 

nam is a symbolic name 

p is a symbolic name 

Begins a FUNCTION subprogram, indicating 
the progran name and any dummy argument 
names, p. An optional type specification 
can be included. 


GO TO s 

s is an executable statement label 

(Unconditional GO TO) Transfers control 
to statement number s. 


7.1 -7.8 


8.1 .2 


4.1 .1 


GO TO (slist),v 4.1.2 

slist is a list of one or more executable statement labels 

separated by commas. 

v is an integer variable 

(Computed GO TO) Transfers control to 
the statement label specified by the value 
v. (If v=l control transfers to the first 
statement label. If v=2 it transfers to the 
second statement label, etc.) If v is less 
than 1 or greater than the number of state¬ 
ment labels present, no transfer takes place. 

GO TO v[, (slist)] 4.1.3 

v is an integer variable name 

slist is a list of one or more executable statement labels 

separated by commas 

(Assigned GO TO) Transfers control to 
the statement most recently associated with 
v by an ASSIGN statement. 
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FORTRAN IV XVM 
Language Manual 

Statement Formats Effect Section 


IF (e) vl,v2,v3 4*2.1 


e 

is an expression 


vi 

are executable statement labels or variables to which 
statement labels have been ASSIGNed 


IF (e) st 

(Arithmetic IF) Transfers control to state¬ 
ment number vi depending upon the value 
of the expression, If the value of the ex¬ 
pression is less than zero, transfer to vl; 
if the value of the expression is equal to 
zero, transfer to v2; if the value of the 
expression is greater than zero, transfer to 
v3. 

4.2.2 

e 

is an expression 


st 

is any executable statement except a DO or a logical 

IF statement 



(Logical IF) Executes the statement if 
the logical expression is true. 


IMPLICIT typ (a[ 

,a].,.)[,typ(a[,a]...)]... 

5.1 

typ 

is a data type specifier 


a 

is either a single letter, or two letters in alphabetical 
order separated by a dash (i.e., x-y) 



The elements a represent single (or a 
range of) ietter(s) whose presence as 
the initial letter of a variable speci¬ 
fies the variable to be of that type. 


PAUSE [disp] 


4.7 

disp 

is an octal integer constant 



Suspends program execution and prints 
the display, if one is specified. 


PRINT 

See WRITE for which PRINT is a synonym. 

6.4.5 

READ (u,[f][, END=s][, ERR=s])[1 ist] 

6,4.1 

u 

is an integer variable or constant 


f 

is a FORMAT statement label or an array name 


s 

is an executable statement label 
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READ (u, [f][,END=s][,ERR=s])[list] (cont.) 

list is an I/O list 

(Formatted Sequential) Reads at least one 
logical record from device u according to 
format specifications f and assigns values 
to the variables in the optional list. 

READ (u'r / [f][ / ERR=s])(list) 6.6.1 


u 

is 

an integer variable or constant 

r 

is 

an integer expression 

f 

is 

a FORTRAN statement label or an array name 

s 

is 

an executable statement label 

list 

is 

an I/O list 


(Formatted Direct Access READ) Reads 
record number r from unit u and assigns 
values to the elements of the list accord¬ 
ing to format f. 

READ(u[,END=s][, ERR=s])[list] 6.3.1 

u is an integer variable or constant 

s is an executable statement label 

list is an I/O list 

(Unformatted Sequential READ) Reads one 
unformatted record from device u, assign¬ 
ing values to the variables in the optional 
list. 

READ(u'r[, ERR=s])[Iist] 6.5.1 

u is an integer variable or constant 

r is an integer expression 

s is an executable statement label 

list is an I/O list 

(Unformatted Direct Access READ) Reads 
record r from logical unit u, assigning 
values to the variables in the optional list. 


% 



'Sw- ‘ 
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RETURN [v] 

v is an Integer variable 

Returns control to the calling program from 
the current subprogram. If v is specified, 
control is returned to the statement label 
associated with v in the subprogram call. 

REWIND u 

u is an integer variable or constant 

Repositions logical unit number u to the 
beginning of the physical medium or to 
the currently opened file. 

STOP [disp] 

disp is an octal integer constant 

Terminate program execution and print 
the display, if one is specified. 


FORTRAN IV XVM 
Language Manual 
Section 


4.6 


6 . 8.1 


4.8 


SUBROUTINE nam[(p[,p]...)] 

nam is a symbolic name 

p is a symbolic name 

Begins a SUBROUTINE subprogram, indi¬ 
cating the program name and any dummy 
argument names, p. 

TYPE See WRITE, for which TYPE is a synonym. 

Type Declaration 
typ v[,v]... 

typ is a data type specifier, one of: 

DOUBLE PRECISION 
REAL 

DOUBLE INTEGER 

INTEGER 

LOGICAL 

v is a variable name, an array name, a function or function 

entry name, or an array declarator. 


8.1 .3 


5.2 
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Statement 
iyp v[, v]« 

WRITE (u, 
u 

f 

s 

list 


WRITE (u 1 
u 

r 

f 

s 

list 

WRITE (u[ 
u 

s 

list 
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,(cont 0 ) (Type Declarations) The symbolic names, v, 
are assigned the specified data type in the 
program unit. 

[f][,ERR=s])[list] 6.4.2 

is an integer variable or constant 
is a FORMAT statement label or an array name 
is an executable statement label 
is an l/O list 

(Formatted sequential WRITE) Causes one or 
more logical records containing the values of 
the variables in the optional list to be written 
onto device u, according to the format speci¬ 
fication f. 

r,[f][,ERR=s])[list] 6.6.2 

is an integer variable or constant 
is an integer expression 

is a FORMAT statement label or an array name 
is an executable statement label 
is an I/O list 

(Formatted Direct Access WRITE) Causes a 
record formed from the list and format f to 
be written onto record r of unit u, 


, ERR=s])[list] 6.3.2 

is an integer variable or constant 
is an executable statement label 
is an I/O list 

(Unformatted Sequential WRITE) Causes one 
unformatted record containing the values of 
the variables in the optional list to be writ¬ 
ten onto device u. 
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Statement Formats 


Effect 


WRITE (u'r[ / ERR=s]) [list] 


u 


is an integer variable or constant 


r is an integer expression 

s is an executable statement label 

list is an I/O list 

(Unformatted Direct Access WRITE) Causes a 
record containing the values of the variables 
in the list to be written onto record r of logi¬ 
cal unit u. 


END=s,ERR=s 


(Transfer of control on end-of-file or error 
condition) Is an optional element in each 
type of I/O statement allowing the program 
to transfer to statement number s on an end 
of-file (END=) or error (ERR=) condition. 
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6.5.2 
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Table A-1 

FORTRAN Library Functions 


FORM 

DEFINITION 

ARGUMENT 

TYPE 

RESULT 

TYPE 

ABS(X) 

IABS(I) 

DABS(X) 

Real absolute value 

Integer absolute value 

Double precision absolute value 

Real 

Integer 
Double P 

Real 

Integer 
Double P 

JABS(I) 

Double Integer absolute value 

Double 1 

Double 1 

FLOAT(I) 

IFIX(X) 

SNGL(X) 

Integer to Real conversion 

Real to Integer conversion 

1FIX(X) is equivalent to INT(X) 

Double precision to Real conversion 

Integer 

Real 

Double P 

Real 

Integer 

Real 

DBLE(X) 

Real to Double precision conversion 

Real 

Double P 

JFIX(X) 

Real to Double integer conversion 

Real 

Double 1 

JFIX(X) 

Double precision to Double integer 
conversion 

Double P 

Double 1 

ISNGL(I) 

Double integer to integer conversion 

Double 1 

Integer 

JDBLE 

Integer to Double integer 

Integer 

Double 1 

JDFIX(X) 

Double precision to Double integer 
conversion 

Double P 

Double 1 

FLOATJ(I) 

Double integer to Real conversion 

Double 1 

Real 

DBLEJ(I) 

Double integer to Double precision 
conversion 

Double 1 

Double P 

AINT(X) 

INT(X) 

IDINT (X) 

Truncation functions return the sign of 
the argument * largest integer < Jarg ] 

Real to Real truncation 

Real to Integer truncation 

Double precision to Integer truncation 

Real 

Real 

Double P 


JINT (X) 

Real to Double integer truncation 

Real 


JDINT (X) 

Double precision to Double integer 
truncation 

Double P 

Double 1 

AMOD(X,Y) 
MOD(l,J) 
DMOD(X, Y) 

Remainder functions return the remainder 
when the first argument is divided by 
the second „ 

Real remainder (x/y<131072) 

Integer remainder 

Double precision remainder (x/y<131072) 

Real 

Integer 
Double P 

Real 

Integer 
Double P 

JMOD(IJ) 

Double integer remainder (l/J < 131072) 

Double 1 

Double 1 

AMAXJ2f(l,J,...) 
AMAX1 (X,Y /0 ..) 
MAX0 (l,J,...) 
MAXI (X,Y ,...) 

Maximum value functions return the 
largest value from among the argument 
list; > 2 arguments. 

Real maximum from Integer list 

Real maximum from Real list 

Integer maximum from Integer list 

Integer maximum from Real list 

Integer 

Real 

Integer 

Real 

Real 

Real 

Integer 

Integer 
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Table A-1 (Cont.) 
FORTRAN Library Functions 


FORM 

DEFINITION 

ARGUMENT 

TYPE 

RESULT 

TYPE 

DMAX1 (X,Y,...) 

JMAXj2f(l,J, ...) 

Double precision maximum from Double 
precision list 

Double integer maximum from Double 
integer list 

Double P 

Double 1 

Double P 

Double 1 

AMINJZf(l,J, ...) 
AMIN1 (X / Y,...) 

MiN/af(i, j # ...) 

MINI (X,Y,...) 
DMIN1 (X,Y,...) 
JMINj2f(l,J, ...) 

Minimum value functions return the small¬ 
est value from among the argument list; 

> 2 arguments. 

Real minimum of Integer list 

Real minimum of Real list 

Integer minimum of Integer list 

Integer minimum of Real list 

Double minimum of Double list 

Double integer minimum of Double integer 
list 

Integer 

Real 

Integer 

Real 

Double P 

Double 1 

Real 

Real 

Integer 
Integer 
Double P 

Double 1 

SIGN (X, Y) 

I SIGN (1, J) 

DSIGN (X,Y) 

JSIGN (1, J) 

The transfer of sign functions return (sign 
of the second argument) * (absolute value 
of the first argument). 

Real transfer of sign 

Integer transfer of sign 

Double precision transfer of sign 

Double integer transfer of sign 

Real 

Integer 

Double P 
Double 1 

Real 

Integer 
Double P 
Double 1 

DIM(X,Y) 

IDIM(I,J) 

JDIM(I, J) 

Positive difference functions return the 
first argument minus the minimum of the 
two arguments. 

Real positive difference 

Integer positive difference 

Double integer positive difference 

Real 

Integer 

Double 1 

Real 

Integer 
Double 1 

EXP(X) 

DEXP(X) 

Exponential functions return the value 
of e raised to the argument power, 

e* (x >0) 
e (x >0) 

Real 

Double P 

Real 

Double P 

ALOG(X) 

ALOGlj2f(X) 

DLOG(X) 

DLOGlj2f(X) 

Returns log (X) "1 

Returns log'fpXX) l x > 0 

Returns log^^X) / — 

Returns log^X) J 

Real 

Real 

Double P 
Double P 

Real 

Real 

Double P 
Double P 

SORT (X) 

DSQRT(X) 

Square root of Real argument (x > ,0) 

Square root of Double precision argument (x > 0) 

Real 

Double P 

Real 

Double P 

SIN(X) 

DSIN(X) 

Real sine 

Double precision sine 

Real 

Double P 

Real 

Double P 
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Table A-l (Coni-.) 
FORTRAN Library Functions 


FORM 

DEFINITION 

ARGUMENT 

TYPE 

RESULT 

TYPE 

COS(X) 

Real cosine 

Real 

Real 

DCOS(X) 

Double precision cosine 

Double P 

Double P 

TANH(X) 

Hyperbolic tangent 

Real 

Real 

ATAN(X) 

Real arc tangent 

Real 

Real 

DAT AN (X) 

Double precision arc tangent 

Double P 

Double P 

ATAN2(X, Y) 

Real arc tangent of (X/Y) 

Real 

Real 

DATAN2(X,Y) 

Double precision arc tangent of (X/Y) 

Double P 

Double P 
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APPENDIX B 
ERROR MESSAGES 


B. 1 COMPILER ERROR MESSAGES 
Compiler error messages are printed in the form: 

>mnA< 

where: 

mn is the error number 

A is the alphabetic mnemonic characterizing the error class. 


All error messages are given below. 


Number 

Letter 

Meaning 



Common, equivalence, data errors: 

01 

C 

No open parenthesis after variable name in DIMENSION 
statement 

02 

C 

No slash after common block name 

03 

C 

Common block name previously defined 

04 

c 

Variable appears twice in COMMON 

05 

C 

EQUIVALENCE list does not begin with open parenthesis 

06 

C 

Only one variable in EQUIVALENCE class 

07 

C 

EQUIVALENCE distorts COMMON 

08 

C 

EQUIVALENCE extends COMMON down 

09 

C 

Inconsistent EQUIVALENCing 

10 

C 

EQUIVALENCE extends COMMON down 

11 

C 

Illegal delimiter in EQUIVALENCE list 


(continued on next page) 
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Number 

Letter 

Meaning 



Common, equivalence, data errors: (copt) 

12 

C 

Non-COMMON variables in BLOCK DATA 

15 

C 

Illegal repeat factor in DATA statement 

16 

C 

DATA statement stores in COMMON in non-BLOCK DATA 
statement or in non-COMMON in BLOCK DATA statement 



DO errors: 

01 

D 

Statement with unparenthesized - sign and comma not a DO 
statement 

04 

D 

DO variable not followed by = sign 

05 

D 

DO variable not integer 

06 

D 

Initial value of DO variable not followed by comma 

07 

D 

Improper delimiter in DO statement 

09 

D 

Illegal terminating statement for DO loop 



External symbol and entry-point errors: 

01 

E 

Variable in EXTERNAL statement not simple non-COMMON 
variable or simple dummy variable 

02 

E 

ENTRY name non-unique 

03 

E 

ENTRY statement in main program 

04 

E 

No = sign following argument list in arithmetic statement 
function 

05 

E 

No argument list in FUNCTION subprogram 

06 

E 

Subroutine list in CALL statement already defined as variable 

08 

E 

Function or array name used in expression without open 
parenthesis 

09 

E 

Function or array name used in expression without open 
parenthesis 



Format errors: 

01 

F 

Bad delimiter after FORMAT number in I/O statement 

02 

F 

Missing field width, illegal character or unwanted repeat 
factor 

03 

F 

Field width is 0 

04 

F 

Period expected, not found 

05 

F 

Period found, not expected 

06 

F 

Decimal length missing (no "d" in "Fw.d") 

07 

F 

Missing left parenthesis 


(continued on next page) 
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Number 

Letter 

Meaning 

08 

F 

Format errors: (cont) 

Minus without number 

09 

F 

No P after negative number 

10 

F 

No number before P 

12 

F 

No number or 0 before H 

13 

F 

No number or 0 before X 

15 

F 

Too many left parentheses 

02 

H 

Hollerith errors: 

More than two characters in Integer or logical Hoilerith constant 

03 

H 

Number preceding H not between 1 and 5 

04 

H 

Carriage return inside Hollerith field 

05 

H 

Number preceding H not an integer 

06 

H 

More than five characters inside quotes 

07 

H 

Carriage return inside quotes 

01 

I 

Various illegal errors: 

Unidentifiable statement 

02 

I 

Misspelled statement 

03 

I 

Statement out of order 

04 

I 

Executable statement in BLOCK DATA subroutine 

05 

I 

Illegal character in I/O statement, following unit number 

06 

I 

Illegal delimiter in ASSIGN statement 

07 

I 

Illegal delimiter in ASSIGN statement 

08 

I 

Illegal type in IMPLICIT statement 

09 

I 

Logical IF as target of logical IF 

10 

I 

RETURN statement in main program 

11 

I 

Semicolon in COMMON statement outside of BLOCK DATA 

12 

I 

Illegal delimiter in IMPLICIT statement 

13 

I 

Misspelled REAL or READ statement 

14 

I 

Misspelled END or ENDFILE statement 

15 

I 

Misspelled ENDFILE statement 

16 

I 

Statement function out of order or undimensioned array 

17 

I 

Typed FUNCTION statement out of order 

18 

I 

Illegal character in context 

19 

I 

Illegal logical or relational operator 


(continued on next page) 
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Number 

Letter 

Meaning 



Various illegal errors: (cont) 

20 

I 

Illegal letter in IMPLICIT statement 

21 

I 

Illegal letter range in IMPLICIT statement 

22 

I 

Illegal delimiter in letter section of IMPLICIT statement 

23 

I 

Illegal character in context 

24 

I 

Illegal comma in GOTO statement 

26 

I 

Illegal variable used in multiple RETURN statement 



Pushdown list errors: 

01 

L 

DO nesting too deep 

02 

L 

Illegal DO nesting 

03 

L 

Subscript/function nesting too deep 

04 

L 

Backwards DO loop (also caused by some illegal I/O lists). 
Appears after END statement. 



Overflow errors: 

01 

M 

EQUIVALENCE class list full 

02 

M 

Program size exceeds 8K 

03 

M 

Local array length larger than 8K 

04 

M 

Element position in local array larger than 8K or in common 
array larger than 32K (EQUIVALENCE, DATA) 

06 

M 

Integer negative or larger than 131071 

07 

M 

Exponent of floating point number larger than 76 

08 

M 

Overflow accumulating constant - too many digits 

09 

M 

Overflow accumulating constant - too many digits 

10 

M 

Overflow accumulating constant - too many digits 



Statement number errors: 

01 

N 

Multiply defined statement number or compiler error 

02 

N 

Statement erroneously labeled 

03 

N 

Undefined statement number 

04 

N 

FORMAT statement without statement number 

05 

N 

Statement number expected, not found 

07 

N 

Statement number more than five digits 

08 

N 

Illegal statement number 

09 

N 

Invalid statement label or continuation 








(continued on next page) 
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Number 

Letter 

Meaning 



Partword errors: 

01 

P 

Expected colon, found none 

02 

P 

Expected close bracket, found none 

03 

P 

Last bit number larger than 35 

04 

P 

First bit number larger than last bit number 

05 

P 

First and last bit numbers not simple integer constants 



Subscripting errors: 

01 

S 

Illegal subscript delimifer in specification statements 

02 

S 

More than three subscripts specified 

03 

S 

Illegal delimiter in subroutine argument list 

04 

S 

Non-integer subscript 

05 

S 

Non-scalar subscript 

06 

s 

Integer scalar expected, not found 

10 

s 

Two operators in a row 

11 

s 

Close parenthesis following an operator 

12 

s 

Adjustable dimension not in dummy array 

13 

s 

Adjustable dimension not a dummy integer 

14 

s 

Two arguments in a row 

15 

s 

Digit or letter encountered after argument conversion 

16 

s 

Number of subscripts stated not equal to number declared 



Table overflow errors: 

01 

T 

Arithmetic statement, computed GOTO list, or DATA state¬ 
ment list too large 

02 

T 

Too many dummy variables in arithmetic statement function 

03 

T 

Symbol and constant fables overlap 



Variable errors: 

01 

V 

Two modes specified for same variable name 

02 

V 

Variable expected, not found 

03 

V 

Constant expected, not found 

04 

V 

Array defined twice 

05 

V 

Error: variable is EXTERNAL or argument (EQUIVALENCE, 
DATA) 

07 

V 

More than one dimension indicated for scalar variable 


(confirmed on next pag 
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Number 

Letter 

Meaning 



Variable errors: (cont) 

08 

V 

First character after READ or WRITE not open parenthesis in 

I/O statement 

09 

V 

Illegal constant in DATA statement 

11 

V 

Variables outnumber constants in DATA statement 

12 

V 

Constants outnumber variables in DATA statement 

14 

V 

Illegal dummy variable (previously used as non-dummy variable) 

16 

V 

Logical operator has non-integer, non-logical arguments 

17 

V 

Illegal mixed mode expression 

19 

V 

Logical operator has non-integer, non-logical arguments 

21 

V 

Signed variable left of equal sign 

22 

V 

Illegal combination for exponentiation 

25 

V 

• NOT. operator has non-integer, non-logical argument 

27 

V 

Function in specification statement 

28 

V 

Two exponents in one constant 

29 

V 

Illegal redefinition of a scalar as a function 

30 

V 

No number after E or D in a constant 

32 

V 

Non-integer record number in random access I/O 

35 

V 

Illegal delimiter in I/O statement 

36 

V 

Illegal syntax in READ, WRITE, ENCODE, or DECODE 
statement 

37 

V 

END and ERR exits out of order in I/O statement 

38 

V 

Constant and variable modes don't match in DATA statement 

39 

V 

ENCODE or DECODE not followed by open parenthesis 

40 

V 

Illegal delimiter in ENCODE/DECODE statement 

41 

V 

Array expected as first argument of ENCODE/DECODE 
statement 

42 

V 

Illegal delimiter in ENCODE/DECODE statement 



Expression errors: 

01 

X 

Carriage return expected, not found 

02 

X 

Binary WRITE statement with no I/O list 

03 

X 

Illegal element in 1/O list 

04 

X 

Illegal statement number list in computed or assigned GOTO 

05 

X 

Illegal delimiter in computed GOTO 

07 

X 

Illegal computed GOTO statement 


(continued on next page) 
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: y 



Number 

Letter 

Meaning 

10 

X 

Expression errors: (cont) 

Illegal delimiter in DATA statement 

11 

X 

No close parenthesis in IF statement 

12 

X 

Illegal delimiter in arithmetic IF statement 

13 

X 

Illegal delimiter in arithmetic IF statement 

14 

X 

Expression on left of equals sign in arithmetic statement 

15 

X 

Too many right parentheses 

16 

X 

Illegal open parenthesis (in specification statements) 

17 

X 

Illegal open parenthesis 

19 

X 

Too many right parentheses 

20 

X 

Illegal alphabetic in numeric constant 

21 

X 

Symbol contains more than six characters 

22 

X 

.TRUE., .FALSE., or .NOT. preceded by an argument 

23 

X 

Unparenthesized comma in arithmetic expression 

24 

X 

Unary minus in I/O list 

26 

X 

Illegal delimiter in I/O list 

27 

X 

Unterminated implied - DO loop in I/O list 

28 

X 

Illegal equals sign in I/O list 

29 

X 

Illegal partword operator 

30 

X 

Illeqal arithmetic expression 

31 

X 

Illegal operator sequence 

32 

X 

11 legal use of =. 


B.2 OTS ERROR MESSAGES 


Following is a list of OTS error messages. (R) indicates a recoverable error; (T) a terminal error. 


Error Number 

Error Description 

Possible Source 

05 (R) 

Negative REAL square root argument 

SORT 

06 (R) 

Negative DOUBLE PRECISION square root 
argument 

DSQRT 

07 (R) 

Illegal index in computed GO TO 

.GO 

io a> 

Illegal I/O device number 

.FR, .FW, .FS, .FX, 
DEFINE, RANCOM 

n a) 

Bad input data - IOPS mode incorrect 

.FR, .FA, .FE, .FF, .FS, 
RANCOM, RBINIO, 
RBCDIO 


(continued on next page) 


B-7 







Error Messages 


12 a) 

Bad FORMAT 

.FA, .FE, .FF 

13 a) 

Negative or zero REAL logarithmic argument 

.BC, .BE, ALOG 

14 (R) 

Negative or zero DOUBLE PRECISION loga- 

.BD, .BF, .BG, .BH, 


rithmic argument 

DLOG, DLOGIO 

15 (R) 

Zero raised to a zero or negative power (zero 

.BB, .BC, .BD, .BE, .BF, 


result is passed) 

.BG, .BH 

16 (R) 

ATAN2 (0.0,0.0) attempted; Pl/2 returned 

AT AN 2 

17 (R) 

DATAN2 (0.0, D0,0.0D0) attempted; Pl/2 

DATAN2 


returned 


20 (T) 

Fatal I/O error (RSX only) 

FIOPS 


fc- 

CN 

Undefined file 

RANCOM 


22 (T) 

IIlegal record size 

DEFINE 

direct 




access ) 

23 a) 

Size discrepancy 

RANCOM 

\ 

errors 

24 (T) 

Too many records per file or illegal record number 

DEFINE, RANCOM 


25 a) 

Mode discrepancy 

RANCOM 


^26 a) 

Too many open files 

DEFINE 

30 (R) 

Single integer overflow 1 2 3 

RELEAE, .FPP 

2 31 (R) 

Extended (double) integer overflow 4 

DBLINT, JFIX, JDFIX, 



ISNGL 

2 32 (R) 

Single floating point overflow 

RELEAE 

2 33 (R) 

Double floating point overflow^ 


2 34 (R) 

Single floating point underflow 

RELEAE 

2 35 (R) 

Double floating point underflow^ 


2 36 (R) 

Floating point divide check 

RELEAE 

3 37 (R) 

Integer divide check 

INTEAE 

40 (T) 

Illegal number of characters specified [legal: 

ENCODE 


0 <c<625] 


41 (R) 

Array exceeded 

ENCODE 

42 <T) 

Bad input data 

DD10 


50 a) 

FPP memory protect/non-existent memory 


51 a) 

READ to WRITE illegal I/O Direction Change 

BCDIO, BINIO 


to Disk without intervening CLOSE or REWIND 


52 (T) 

Attempt to initialize JEA register on a 



machine without floating point hardware 



1 Only detected when fixing a floating point number. 

2 Also prints out PC with FPP system 

3 lf extended integer divide check, prints out PC with FPP system. 

4 With non-floating Point Processor system, only detected when fixing a floating point number. 
^Not detected by software floating point routines (only by FPP system). 




Error Messages 


B.3 OTS ERROR MESSAGES IN FPP SYSTEMS 

In software systems, arithmetic errors resulting in the OTS error messages summarized above are de¬ 
tected in the arithmetic package (RELEAE and INTEAE). In the hardware FPP systems, these errors 
are detected by the hardware (with the exception of single integer divide check) and serviced by a 
trap routine in the FPP routine .FPP. 

Where applicable, on such error conditions, a value is assumed as the final result of the compu¬ 
tation. Where a "none" value is indicated, the results are meaningless. Results differ depending 
upon whether or not floating point hardware is used. 


Error 

ASSUMED VALUE 

FPP Hardware 

FPP Software 

Single Floating Overflow 

± largest single floating value 

ilargest single 

(.OTS 32) 


floating value 

Double Floating Overflow 

± largest single floating value 

not detected 

(.OTS 33) 



Single Floating Underflow 

zero 

zero 

(.OTS 34) 



Double Floating Underflow 

zero 

not detected 

(.OTS 35) 



Floating Divide Check 

± largest single floating value 

ilargest single 

(.OTS 36) 


floating value 

Integer Overflow 

limited detection 1 

limited detection 

(.OTS 30) 



Double Integer Overflow 

none 2 

limited detection 1 

(.OTS 31) 



Integer Divide Check 

none 

none 

(.OTS 37) 




Further, when converting an extended integer, the magnitude of which is 2 -I, to a single 
integer, no error is indicated and the high order digits are lost. 


x When fixing a floating point number, integer and extended integer overflow is detected, in these 
instances, plus or minus the largest integer for the data mode is assumed as the result. 

2 With the FPP hardware all extended double integer overflow conditions are detected, but the results 
are meaningless. 
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APPENDIX C 

PROGRAMMING EXAMPLES 


C.l A FUNCTION TO READ THE AC SWITCHES 


, ! Sv 


If is frequently desirable to use the AC switches of the XVM CPU to alter the sequence of instruc 
tions executed in a FORTRAN program. The following program can be used as a function in an 
arithmetic IF statement to conditionally branch. 




.TITLE TTnG 

SUBROUTINE TO READ AC SWITCHES 


MACRO CALLING 


ITQG 


MASK 


-GLOnL 

0! 

JMS* 

JMP 

0 

LAS 

AND* 

JMP* 

.END 


SEOUFNCE 

.globl i tog 


JMs* 

JMP 
'.DsA 

iTnG..DA 

’.Da 


MASK 

TTnG 


ITOG 

(MASK) 


/JUMP OVER ARGUMENT 

/ADDRESS OF MASK 

/RETURN WITH MASKED ACS IN 


/INTEGER FUNCTION 

/GET ARGUMENTS 

/ONE ARGUMENT 

/MASK ADDRESS 

/LOAD AC FROM SWITCHES 

/MASK AC 

/RETURN WITH MASKED Ac SWITCHES 


C.2 IFLOW AND IDZERO EXAMPLES 


■ning 

example 

of both the 

MAI 

N PROG 

RAM 

TO SI- 

A :::: 

10* * 

;{< 7 

0 

C 

10, * 
A * B 

# 1 

0 

CAL 

L SUBR 

OUT 

INE TC 

AND 

MU IS 

I ON 

BY ZE 

CAL 

L CHEC 

K ( 

1) 

PAU 

SE 1 



C ;: - 

(10, 

## 

(--70) > 

CAL 

L CHEC 

K ( 

:l.) 
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{FLOW 


AC. 


(continued on next page) 





Programming Examples 


PAUSE 2 

3 C "" A/0* 

CALL.. CHECK < .1. ) 
PAUSE 3 
STOP 
END 


S U B R 0 U T :i: N E T0 C H E C K F 0 R U N D E R F!... 0 W ? 0 U E R FI... 0 W 0 R 
DIVISION BY ZERO IN FLOATING POINT ARITHMETIC* 

P A S SIN G A N 0 N Z E R 0 P 0SITIU E A R 0 U M E N T W11.. I... C H E C K 
FOR ALL, A ZERO ARGUMENT RESULTS IN NO CHECKING, 

SUBROUTINE CHECK <N> 

LOGICAL IFLOW?IDZERO 

IF <IFLOW(N)) WRITE <1*10) 

IF < IF I... 0 W < -• N ) ) W R IT E <:!. v 11. ) 

IF < ID Z E R 0 ( N ) ) W RIT E < .1. r 1 2 ) 

F 0 R M A T ( / 9 H 0 V E R i :: ' I... 0 W ) 

F 0 R M A T ( / :l. 0 H U N D E R F I... 0 W ) 

FORMAT (/I3H DIM, BY ZERO) 

RETURN 

END 


The result of running these programs is (with .DAT slot 1 assigned to the TTA): 

NOTE 

The "OTS nn" and "PC=nnnnnn" lines are 
not typed on systems which do not have 
hardware floating point. 


«OTS ; 
•OO 77!. 


OVERFLOW 
PAUSE 00000:1. 
”P ,OTS 34 
P0077553 


UNDERFLOW 
PAUSE 000002 
•'"•p , OTS 36 
PC-077564 


DIM, BY ZERO 
PAUSE 000003 

•-••p 

STOP 000000 

C.3 INPUT-OUTPUT EXAMPLES 

The following is a program composed mainly of I/O statements with no connected purpose. The pro¬ 
gram is presented to illustrate the possible combinations of the different types of I/O (sequential access, 
direct access, data-directed , ENCODE/DECODE). 







Programming Examples 


0 0 0 1 

C 


0 0 u 2 

c 

PROGRAM EXAMPLE TO SHU M UHJEC'J COO cl OUTPUT FOR 

0 0 0 3 

c 

VARIOUS TYPFS OF I/O STATEMENTS. 

0 0 0 4 

0 01 . 1 5 

0 0 0 6 

c 

implicit real eo 

DiMENS 10w RL1(2),RL2(3),APR(20 ) ,4M1( 2) ,OM2(2) 

0 0 0 7 


OAT A r»Hl / 1 N AM£1 ' , 1 A‘SRC ' / , 002/ ' NAME 2 1 , 1 ASRC 1 / 

0 0 5 4 6 

472031 

542542 

0 0 6 5 0 

4 0b 472 

! 24150b 

0 0 6 5 / 

472051 

542544 

0 0 o 6 l 

4 0 6 4 7 2 

: 2 4 J b 0 0 

0 0 0 B 

j’ 1 


0 0 0 9 

i 0 0 

FORMAT C 1. 5, G10. 3,2 C El 2.2)1 

0 0 0 0 0 

J M P 

$ 0 0 0 0 u 

0 0 0 J 1 

. OS A 

242226 

0 0 0 0 2 

,061\ 

526216 

0 0 0 0 3 

. 0 S A 

3 0 5 4 0 5 

U 0 o 0 4 

. 0 S A 

6 315 3. o 

•) 0 0 0 5 

. 0 S A 

3112 1 0 

0 0 0 0 b 

. OS A 

5 3 05 4 4 

u 0 0 0 7 

. 0 S A 

271445 

0 0 0 1 0 

. OS A 

1 2 45 0 0 

S 0 U 0 0 c 

) = U 0 U 1 1 

0 0 j u 

2 0 0 

FORMAT ( 1 A , l S , G1 u . 3,2 ( E ) 2.2 ) ) 

0 0 0 1 1 

J 4 6 

s u o o 11 

0 0 0 t 2 

. 0 S A 

2 4 1 4 3 3 

0 0 0 1 5 

. O S A 

026222 

0 0 0 L 4 

. U S A 

3 2 5 3 1 0 

0 0 0.1 b 

. 0 S A 

7 3 0 5 4 0 

0 U 0 1 6 

. O S A 

2/14 6 o 

0 0 0 1 7 

. 1) S A 

4 3 1 1. 2 0 

0 0 0 2 0 

. 0 S A 

4 2 5 42 o 

0 0 0 2 1 

. 0 S A 

2 2/14 4 

0 0 0 2 2 

, 0 6 h 

2 45 2 2 4 

y o o 2 i 

o OS A 

0 2 0 1 6 0 

3 0 0 0 J l 

= 0 0 0 2 4 

0 0 ! 1 


C A I. i.j 0 E F I w b (2,100,5,5, J \l 6,0,0,0 ) 

0 0 0 2 -i 

J -/IS 4 

v E F i n E 

0 0 0 2 5 

J-iP 

0 J 0 3 6 

0 0 0 2 b 

. ; J S A 

( 0 0 0 0 0 2 

0 0 0 2 7 

. OS A 

( 0 U o 1 4 4 

0 0 0 5 0 

. l) S A 

( 0 U 0 0 U b 

0 0 U 3 1 

. OS A 

(. 0 U U 0 o b 

0 0 0 3 2 

.O 5 A 

J v b 

0 0 0 3 3 

. 0 b A 

( 0 0 0 U 0 v 

0 0 0 3 4 

. Ob A 

( 0 0 0 0 U 0 

■• ) 0 0 3 6 

. 0 S A 

(000 u 0 0 

0 0 l 2 


C A L u D E lr’ I o E ( 4 , 6 0 0 , 1 0 , u , J V A , 5 ,0,0 ) 

0 U U 3 b 

JOS 4 

DEF1.5 E 

U 0 0 3 / 

JAP 

0 0 0 b 0 

U 0 0 4 0 

. Ob.A 

( 0 0 u U 0 4 

0 0 0 4 l 

. i>SA 

( U 0 1 1 3 0 

0 0 0 4 2 

.ob A 

( 0 0 0 0 1 2 

0 0 0 4 3 

. OS A 

(o o o u y o 

0.0 0 4 4 

. 0 S A 

J V A 

i.) 0 0 4 5 

„ 0 b A 

( 0 0 0 u 0 b 


C-3 



Programming Examples 


0 0 0 4 b 
0 0 U 4 7 
0 0 1 3 
0 0 0 5 0 
0 0 0 5 1 
0 0 0 5 2 
0 0 0 b 3 
0 0 1 4 
0 015 
0 0 1 o 
0 0 1 7 
0 0 1 d 
0 0 0 5 4 
0 0 0 5 b 
0 0 0 5 n 
0 0 0 5 7 
'0 0 1 4 
0 0 0 b 0 
0 0 0 6 3 
0 0 0 b 2 
0 0 U b 3 
V) 0 0 o 4 
0 0 0 6 5 
y 0 0 b b 
0 0 0 b 7 
0 0 0 7 0 
0 0 0 7 1 
000 7 2 
0 0 0 7 3 
QUO /4 
$ 0 0 o 7 "2 
0 0 0 7 b 
0 0 0 7 b 
000 7 7 
0 0 l 0 0 
0 0 2 0 
0 0 1 0 1 
0 0 1 0 2 
0 0 1 0 3 
0 0 1 0 4 
0 010 5 
0 0 1 0 o 
00.10 7 
0 0 1 1 0 
0 0 I 1 1 
0 0112 
0 0113 
U0114 
0 0 115 
S U 0 1 1 3 
0 011b 
0 0 21 
0 0 2 2 
0 0 2 3 
0 0 1 1 7 
0 0 1 2 0 


. 0 S A 

( 0 OOt; 0 0 

, U S A 

(000 0 0 0 

CALL SbtK (5,041) 

JUS 4 

S L E K 

J/lP 

0 0 0 b 4 

. U S A 

( 0 0 0 0 0 b 

.USA 

4 0 0 0 0 0 + H !'“! 1 

Call K.xii'rlK (6 ,om2) 


n 

1 . 01 M AK y 

r* 

L. 

U 

A. OlRbXI ACCfcSS 

J A S 4 

eii'j ri H 

J M P 

0 0 0 o 0 

. U S A 

( 0 0 0 0 0 b 

. i.) S A 

4 0 0 0 0 0 f rv .-rl 2 

K t. A 0 ( 2 1 J V u J 1 '! 1' , K b 2 ( 3 .) , K L 1 

!j AC 

J rt 

,J -'i S 4 

. KS 

. 0 S A 

( 0 0 U U u 2 

. USA 

7 7 7 7 7 7 

J rlS 4 

„ KJ 

, 0 S A 

I. u r 

c M A i C 

: i. a 

r a u 

KG L 

( 0 0 0 0 0 3 

TAD . 

Kb 2 

L)AC 

$ 0 0 0 7 2 

. 0 S A 

7 7 7 7 7 d 


J i S 4 .KJ 
= 0 U 0 7 5 
. 0 5 A $ 0 0 0 7 b 
J 4 S 4 „ K B 

.I.) S A H lj 1 
JiS4 .KG 

v'i Kilt, ( 2 1 3 ) L iM T , K 0 2 C 3 ) , H L. 1 
LAC (0 'J 0 0 0 3 
J v \ S 4 . K X 
.0 SA (0 00 0 0 2 
»OSA 777777 
J 1S 4- . K J 
. 0 S'A L ‘Vi j: 
caaicla 
r a i) (o o o u o 3 

K.CL 

1* A U RL2 
0 AC S 0 0 113 
.USA 77777b 
0 M 6 4 .A.) 

= 0 0 1 lb 
.USA $00 1 1 o 

C B „ SE30t41 r l Au ACCtSS 

c 

J 4 S 4 . K B 
.USA Kb 1. 
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Programming Examples 





0 0121 

JMS* 

.AG 

0 24 


R b. AO 

U 0 t 2 2 

J M 6 4 

. FS 

0012.3 

. OS A. 

( 0 0 0 0 0 1 

0 0 1 2 4 

. OS A 

7 7 7 7 7 7 

0 0 1 2 5 

J '! S 4 

. F J 

0 012b 

. OS A 

i n r 

0 0 1 2 7 

CmA 1 COA 

0 013 0 

TAD 

(. 0 0 0 0 0 3 

0 0 1 3 l 

13 Cl 


001 3 2 

1? A 0 

Kb 2 

0 U 1 3 3 

0 AC 

$ 0 0 1 3 3 

U 0 1 3 4 

. L) S A 

77777b 

0 0 13b 

J M S 4 

.FJ 

S 0 0 1 3 3 

= 0013b 

0 0 l 3 b 

.USA 

S 0 0 l 3 o 

0 0 1 3 7 

J M S 4 

. F 6 

0 o 1 4 u 

, OS A 

HI, 1 

0 0 1 4 l 

J M S 4 

. FG 

10 2 5 


0 H i'll 

0 0 1 4 2 

JOS 4 

» FX 

0 014 3 

. 0 S A 

t 0 u u u 0 3 

0 0 1 4 4 

. OS A 

7 7 / 7 7 7 

0 0 1 4 b 

J i-1 S 4 

.FJ 

0 0 1 4 h 

.OSA 

i o r 

0 0 1 4 7 

C 1*1 A i 

C b A 

0 0 15 0 

C A 0 

1 0 0 U 0 0 3 

0 0151 

RC u 


0 0 1. b 2 

r ao 

Rb2 

00 153 

0 AC 

$ 0 0 1 b 3 

0 0 1 5 4 

, OSA 

7 / 7 7 7 o 

0 0 1 b b 

J . v l S 4 

.FJ 

$00153 

= 0015b 

0 0 1 b b 

. OSA 

$ 0 01 b o 


Cl) ldT,KL2(3) f RL.l 


(3) IrfT,RI/2C3), Rbl 


0 0 2 6 
0 0 2 7 
00 2 8 
00 29 
0 0 3 0 
0 0 1 b 7 
0 016 0 
0 0 161 
0 0 31 


1 L . 


A b C X i 

A. 


DIRECT 

1 . 


A C C E S S 
FORMATTED 


JMS* 
. DSA 
J M 6 * 


, Fb 
RL1 
. FG 


READ ( 4 1 J V A , 10 0) InT,A b2(3),HL1 


0 015 2 

Li AC 

JVA 

0 016 3 

JOS 4 

. Rk 

0 0 1 6 4. 

.OSA 

( 0 0 0 U 0 4 

0 0 1 b b 

. OSA 

. 100 

0 0 16 6 

. OSA 

i mi i 

0 016 7 

JOS 4 

. RE 

0017 0 

. USA 

1J T 

0017 1 

CrtAlC 

LA 

0 0 1/2 

TAO 

C 0 0 0 0 0 3 

0 0 1 7 3 

RC L 


0 0 1 7 4 

TAO 

R b 2 

0017b 

0 AC 

$ 0 0 1 7 D 

0017 6 

. 0 S A 

11 111 0 
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Programming Examples 


0017 7 

J IS* 

• Kt 

$00175 

— 0 0 2 o 0 

0 0 2 0 0 

. 0 S A 

$ 0 0 2 0 0 

0 0 201 

J '4 S 4 

. A A 

0 0 2 0 2 

. 0 8 A 

Kb 1 

0 0 2 0 2 

Jr-18 4 

.RP 

0 0 3 2 


-v r j. r 

0 0 2 0 A 

L A 

10 0U 0 0 5 

0 0 2 0 5 

J >i 5 4 

. K 

0 0 2 0 b 

. 08 A 

tOO (5 U u 4 

0 0 2 0 7 

.084 

. 2 0 0 

0 0 2 1 0 

• 0 8 A 

7 7 7 / 7 7 

0 0 2 1 1 

J 8 8 + 

. Kb 

0 0 2 1 2 

. i)S A 

11 r 

0 0 2 1 3 

C i"! A 1 C l.t A 

0 0 21 4 

r au 

t 0 0 0 0 U 3 

0 0 21 5 

RC b 


0 0 21 b 

r Ao 

Kb 2 

0 0 2 1 7 

0 AC 

$ 0 0 2 l / 

0 0 2 2 0 

.USA 

7 7 7 7 7b 

002 21 

J vi S 4 

. Kb 

$00217 

= 00222 

0 0 2 2 2 

. 0 8 A 

$ 0 02 2 2 

0 0 3 3 

c. 


0 0 3 4 

C 


0 0 3 5 

b 


0 0 2 2 3 

JOS * 

. KA 

0 0 2 24 

. OSm 

K L, 1 

0 0 2 2 5 

JOS 4 

. A P 

0 0 3 6 


K Pi A 0 

0 02 26 

b AC 

( 0 0 (; 0 0 7 

0 0 2 2 7 

J 0 S 4 

, KK 

0 0 2 3 0 

• OS A 

( 0 0 0 U 0 4 

0 0 2 3 1 

. USA 

0 0 0 0 U 0 

002 32 

. 0 S A 

7 7 7 7 7 / 

0 0 2 3 3 

J 38 4 

o (j L) 

0 0 2 3 4 

,08 m 

i .i r 

U 0 2 3 5 

C 3 A 1 C 

La 

0 0 2 3b 

r a u 

t 0 0 U 0 0,3 

0 0 2 3 / 

RC!. 


0 0 2 4 0 

r a o 

K i j 2: 

0 0 2 4 1 

0 AC 

$ 0 0 2 4 1. 

0 0 2 4 2 

. USA 

7 7 / 7 7 o 

0 0 2 4 3 

JOS 4 

* O 0 

$ 0 0 2 4 J 

= 00244 

0 0 2 4 4 

. 0 S A 

$ 0 0 2 4 4 

0 0 2 4 5 

J •! S 4 

. Gbl 

0 0 2 4 o 

. 0 S A 

K b 1. 

U 0 2 4 7 

j A S 4 

, KP' 

0 0 3 7 


/j K l f P 

0 0 2 5 0 

L Ac. 

( 0 0 0 0 1 U 

0 0 2 b 1 

J •■! S * 

. K, 

0 0 2 5 2 

. 0 S A 

t 0 0 0 0 0 4 

0 0 2 5 3 

. USA 

0 0 0 0 U 0 

0 0 2 5 4 

a USA 

777777 

0 0 2 5 5 

J . US * 

. G A 


C 4'5,200 ) 


( 4' 7 ,) i h r 


C 4 ' 8 , ) 1. 


Xwf,HL2(3), RL1 


2 . 0 A f A 0 I K t C 1 b u 


Rb2( 3 ) ,RLl 


, R u 2 ( 3 ) , R b l 
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0 0 2 5b 

. OS A 

035 20 4 

00 2 5 7 

. OS A 

0 0 0 0 0 0 

0 0 2b 0 

. OSA 

i i'i r 

0 0 2 61 

J M S 4 

. ss 

0 0 2 b 2 

. OS A 

K ij 2 

0 0 2 6 5 

LAC 

( 0 0 0 0 0 3 

0 0 2b 4 

0 AC 

$ 0 0 26 4 

0 0 2 6 5 

J:3S* 

» w 

0 0 2 6 b 

. OSA 

071177 

0 0 2 6 7 

. OSA 

0 0 0 0 0 0 

S 0 0 2 b 4 

= 00270 

0 0 2 7 0 

.OSA 

$ 0 0 2 7 0 

00 3 8 



0 0 3 9 

p 


0 0 4 0 

c 


0 0 41 

n 

u 


0 0 2 7 1 

J 0 s * 

« sj-3 

0 0 2 7 2 

.OSA 

0 7 U 7 b 

0 0 2 7 3 

. OSA 

0 0 0 0 0 0 

0 0 2 7 4 

. I) S A 

Rbl 

00 2 75 

J MS* 

. R F 

004 2 


R F A 0 

0 0 2 7 6 

J MS 4 

. FR 

002 7 7 

.OSA 

( 0 0 0 0 0 b 

0 0 3 0 0 

. OSA 

.10 0 

00 3 0 1 

.OSA 

7 7 7 7 7 / 

0 0 3 0 2 

J'iS* 

. FF 

0030 3 

. OSA 

1 W T 

0 0 3 0 4 

C 0 A 1 C 

:la 

0 0 3 0 5 

r a o 

C 0 0 000 3 

0 0 3 0 o 

R C L 


00 30 7 

i 1 AO 

RL2 

0 0 3 10 

OAC 

$ 0 0 3 1 0 

00 31 1 

. OSA 

7/777o 

0031 2 

J M S + 

. F F 

$ 0 0 3 1 0 

= 00313 

0 0 31 3 

. OSA 

$ 0 0 3 1 3 

0 0 3 i 4 

JMS* 

.FA 

0 0 3 1 5 

. OSA 

R b L 

0031b 

JMS 4 

.FF 

0 0 4 3 


W R JL 1 1 

00 31 7 

J i'l S 4 

. F 

00 3 20 

. OSA 

C 0 0 0 0 0 6 

00 3 2 1 

. OSA 

. 2 0 0 

0 0 3 2 2 

. OSA 

7/777/ 

0 0 3 2 3 

J i'i S 4 

. F F 

0 0 3 2 4 

. OSA 

io r 

0 0 3 2 5 

C-lAiC 

! b A 

00 3 2b 

TAD 

(000003 

0 0 3 2 7 

ACL 


0 0 3 3 0 

TAD 

Rb2 

0033 1 

OAC 

$00331 

00332 

. OSA 

777776 

0 0 3 3 3 

JOS 4 

. FF 

$00331 

= 00334 

0 0 3 3 4 

. OSA 

$ 0 0 3 3 4 


6. seuuewriAu access 

i . FUROATTFO 


0,100) 10 T , A L 2 ( 3 ) , R L1 


C b , 2 0 0 ) L ii J ! , RLr2 l 3 ) , H b 1 
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0 0 3 3 5 

JOS* 

. t A 

00 3 3b 

• USA 

R L J 

003 37 

J>MS* 

. Ft 

0 0 4 4 


fc 0 C 0 D t 

00 3 40 

JMS* 

• GF 

00 3 41 

. USA 

( 0 0 0 0 12 

00 3 42 

.USA 

ARR 

00 3 43 

. USA 

. 1 0 0 

0 0 3 4 4 

. USA 

7 7 7 / 7 7 

00 3 45 

J AS* 

. Ft 

00 3 4b 

. USA 

i 4 J; 

0 0 3 4 7 

C H A i 

CLA 

0 0 3 5 0 

T A U 

t 0 0 0 0 0 3 

0 0 3 51 

RCb 


0 0 3 5 2 

r a o 

Rb2 

0b353 

0 AC 

$00353 

0 0 3 5 4 

. USA 

7 7 7 7 7 o 

0 0 3 5 5 

J M S * 

.Ft 

$ 0 0 3 5 3 

= 00356 

0 0 3 5 6 

. USA 

$ 0 0 3 5 6 

0 0 3 5 7 

J M S * 

. F A 

0 0 3 6 0 

. U S A 

R Li 1 

0 0 3 61 

J-iS* 

. F F 

0045 


OtCUUF 

00 3 62 

J t k 1 s * 

O O ».7 

00 3 63 

. 0 S A 

( 0 0 0 0 l 2 

0 0 3 6 A 

.USA 

ARR 

0 0 3 b 5 

. U S A 

. 1 0 0 

0 0 3 6 b 

. USA 

777777 

0 0 3 6 7 

J .-IS * 

.Ft 

0 0 3 7 0 

. USA 

i h j: 

00371 

C M A i i 

:la 

00 372 

TAD 

C 0 00 0 0 3 

003 73 

RCb 


0 0 3 7 4 

r a i) 

Rb'2 

0 0 3 7s 

0 AC 

$ 003 7 5 

0 0 3 7b 

.USA 

7 7 7 7 7 o 

003 7 7 

JMS* 

.Ft 

$ 0 0 3 7 5 

= 00400 

0 0 4 0 0 

.USA 

$ 0 0 4 0 0 

0 0 4 6 

c 


0 04 / 

c 


0 0 4 3 

c 


0 0 4 0 1 

JMS* 

. FA 

0 0 4 0 2 

. USA 

R b 1 

U 0 4 0 3 

JJS* 

. F F 

0 0 49 


RtAO (! 

0 0 4 0 4 

jus* 

. F R 

0 040 5 

. USA 

( 0 0 0 0 0 b 

0 0 4 0b 

.USA 

0 0 0 0 0 0 

0 0 40 7 

. USA 

7 7 7 7 7 7 

0 0 4 1 0 

JMS* 

. G U 

0 0 4 1 1 

.USA 

L N t 

00 412 

C H A 1 C U A 

0 0 4 1 3 

T AO 

( 0 0 U LL 0 3 

0 0 41 4 

RC u 



(10 , akR, luu) 1 <■; l', 


( 1 0 , A R K , 1 0 0 ) 1 j 'l r, 


2 . DA rA 


( 5 , J 1 ■'I f , R Ij 2 C 3 ) / H b J. 
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Programming Examples 


U 0 4 1 0 

i'AD 

Kb 2 

U 0 41 h 

0 AC 

$ U U 4 1 o 

0 0 417 

. 0 S A 

7 / 7 7 7 o 

0 0 420 

J rl o * 

. G i) 

$ 0 0 4 1 b 

= 00421 

0 0 4 2 l 

. USA 

S 0 0 4 21 

0 0 4 2 2 

J AS 4 

. vjb 

0 0 4 2 3 

. USA 

H u 1 

0 0 4 2 4 

J -4 5 * 

. F F 

0 0 5 0 


u k j re 

0 0 4 2b 

J f v ! 5 4 

. Fw 

0 0 4 2 b 

. i)S A 

(OuuOUo 

0 0 4 2 7 

. jsa 

0 0 5.) 0 U '0 

0 0 4 3 0 

. OSA 

7 7 7 7 7 7 

0 0 4 31 

JUS* 

. GA 

00 43 2 

.OSA 

036204 

0 0 4 3 3 

. OSA 

0 0 0 0 0 u 

0 0 4 3 4 

. 0 S A 

1 .V 1 

0 0 4 3b 

JMS* 

. SS 

0 0 4 3 b 

. 0 S A 

Hu 2 

0 0 4 3 7 

ij A C 

(. 0 0 0 0 0 3 

0 0 4 40 

0 AC 

$ 0 U 4 4 U 

004 4 1 

J -1S 4 

e O V_ 

0044 2 

, OSA 

071177 

004 4 3 

. OSA 

0 0 0 0 u u 

S 0 0 4 4 0 

= 00 44 4 

0 0 4 4 4 

. USA 

$ 0 0 4 4 4 

0 0 4 4b 

JOS 4 

. Gd 

0 0 4 4b 

. OSA 

0 7 J 1 / o 

0 0 4 4 7 

.OSA 

0 0 0 0 0 0 

0 0 4 b 0 

. USA 

KOI 

0 0 4 5 1 

J ''IS 4 

. FF 

0 0 b 1 


kciCuoo 

>'.) 0 4 b 2 

J M S 4 

0 oG 

0 0 4 5 3 

. USA 

l 0 0 0 U 1 7 

00 45 4 

. OSA 

A K K 

0 (.) 4 5 b 

. OSA 

0 0 0 0 0 0 

0 0 4 b 6 

, D S A 

7 7 7 7 7 7 

0 0 4 5 7 

J M S 4 

. G 0 

0 0 4 6 0 

. USA 

14 r 

0 0 4 b 1 

,V 1 A i L 

: ij a 

0 0 4 o 2 

t’AD 

(. 0 0 (.10 0 3 

0 0 4 6 3 

KC 0 


0 0 4 6 4 

t’AO 

K 0 2 

0 0 46b 

0 A c 

$ 0 0 4 6 6 

0 0 4 6 fo 

. USA 

/ 7 7 7 7 o 

0 0 4 6 7 

J AH* 

. G D 

SOU 4 o 5 

= 0 0 4 10 

0 0 4 7 0 

. OSA 

S 0 U 4 7 0 

0 0 4 7 1 

J i'i S 4 

• VJ b 

0 0 4 / i 

. OSA 

Rui 

0 0 4 7 3 

J 0 S 4 

, F F 

0 0b2 


F w C U Or, 

0 0 4 7 4 

J ‘. u ! S 4 

. GF 

0 0 4 7 b 

. U S A 

( 0 0 0 0 3 1 

U 0 4 7 b 

. USA 

A RK 


) UkC,Ro2U) ,kL1 


l. 15,ARR,) £Nf,PLj2l3) 


C 2 b , A K K , ) i rd T , K b 2 ( 3 ) 


09 


KOI 
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Programming Examples 


00 4 7 7 

„ 0 S A 

i! u 0 O O 0 

0 0 5 0 u 

„ O S A 

7 7 7 7 7 7 

0 0 5 0 i 

JSS* 

. GA 

0 0 5 0 2 

„ D 5 A 

0 3 5 2 0 4 

0 0 5 0 5 

, O S M 

0 0 0 0 0 0 

005 0 4 

o D S A 

l f* 1' 

0 0 5 0 5 

J 4 5 4 

. s s 

0 0 5 0 a 

„ 06 A 

HI. 2 

0 0 5 0 7 

L A C 

( 0 0 O 0 O 5 

0 0 5 1 U 

0 AC 

$ 0 O 5 1 0 

.) u 5 1 1 

J MS 4 

e 

0 0 5 1/7 

. USA 

071177 

0 0 515 

„ 08 A 

o o o o o o 

S 0 0 5 1 0 

= 0 0 5 1 4 

0 0 5 14 

. U S A 

$ 0 u 5 1 4 

0 0 5 1 5 

J i'i S 4 

. G b 

0 o 5 1 o 

„ U S A 

O 7 117 o 

0 0 5 1 / 

.USA 

0 0 0 0 0 O 

0 0 5 2 0 

. USA 

Rb I 

0 O 5 2 1 

J M S 4 

. Hr 

05 3 


b r -i u F 

0 0 5 2 2 

J 1S 4 

. F V 

o 0 5 2 5 

.USA 

l 0 0 0 0 O l 

0 o 5 4 


bUOF 

0 0 5 2 4 

J >i S 4 

. 5 7 

0 0 5 2 5 

. USA 

1 0 0 0 u 0 2 

0 0 5 5 


b S u 5 

0 0 5 2b 

J 'MS 4 

. b 7 

u 0 5 2 7 

.USA 

( 0 0 0 u 0 3 

0 0 5 b 


c.m DF 

0 0 5 3 0 

J IAS 4 

. F V 

o 0 5 31 

. 0 S A 

t, 0 0 0 0 O t 

0 0 5 7 


t, !'•: O F 

0 0 5 3 2 

J 4 S 4 

. r V 

0 0 5 3 3 

. U S A 

( 0 U 00 0 5 

0 0 5 8 


Kb UF 

0 0 5 3 4 

J M S 4 

o F V 

0 0 5 3 5 

. USA 

(Out-, u 0 b 

0 0 5 0 


S i:uP 

0 0 5 3b 

uAC 

C 0 0 o y 0 0 

0 0 5 3 7 

J M P 4 

. s r 

0 0 a 0 


b.’-u 

0 0 5 4 y 

C Jii A 


0 0 5 4 1. 

J ivi P 4 

„ S L 

0 0 5 4 2 

JUS 4 

. L n 

u 0 5 4 3 

jms* 

. F F 

0 0 5 4 4 

J Pi P 

0 U 0 0 0 

0 U 5 4 5 

. d u ft. 

0 0 0 0 O 4 

0 0 5 5 i. 

, l)SA 

0 0 0 U O 1 

0 0 5 -> 2 

o Jo A 

0 0 U 0 0 1 

0 0 5 5 3 

. LI S A 

0 0 0 0 U 0 

0 0 5 5 4 

. U 6 A 

0 0 0 o o o 

0 0 5 5 5 

.USA 

R L 1. 

0 0 5 5 o 

. d u K 

U 0 0 0 0 o 

0 U 5 o 

. U S A 

u U u 0 0 1 

0 0 5 b 5 

. V S A 

0 0 0 0 0b 
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Programming Examples 


0 0 3 6 b 

. O 3 a 

U U 0 0 0 0 

0 0 3 b 7 

. U b A 

0 U 0 0 u u 

00 b 7 0 

• 06 a 

K1, 2 

0 0 b / 1 

. 6IjK 

0 0 u U 5 O 

0 U O 4 l 

. 1)6 A 

Li U 0 U '-> 1 

0 0 b 4 2 

. US A 

0 U 0 0 3 J 

0 0 b 4 3 

.USA 

V U U 0 0 0 

0 0 b 4 4 

.USA 

U U 0 L 1 0 \ i 

0 0 6 4b 

. USA 

A AH 

U 0 o 4 0 

. 0 b A 

0 0 0 0 0 4 

0 U b 3 2 

g U 5 A 

0 0 0 0 0 1 

0 0 o b i 

, U S A 

0 0 0 j u 4 

0 0 b 5 4 

. U S A 

0 0 0 o 0 -0 

0 0 b b b 

. U S A 

o 0 0 0 0 0 

u u b 5 b 

.USA 

U'Ml 

U 0 o o 7 

. d 1J K 

1) 0 0 U 0 4 

0 0 o 6 3 

.USA 

u 0 0 u u l 

0 U b b 

.USA 

0 0 0 0 0 -t 

t) 0 b b b 

. U S A 

0 o 0 0 U J 

1 J 0 b b b 

. D S A 

0 0 U 0 U 0 

U U b o 7 

. USA 

A m 2 

0 0 o 7 u 

. 0 S A 

USK i, Ufci 

0 0 b 7 1 

. SbK 

0 0U 0 0 1 

0 0 o 7 2 

. 6i„ib 

0 0 0 0 0 1. 

0 0 o 7 3 

. USA 

s h; ia a 

0 0 b 7 4 

. D S A 

H H f t H 

0Ob 7b 

. USA 

. KS 

0 U b 2 b 

. 6 OK 

0 0 o 0 U l 

0 0 b / 7 

a U S A 

. K J 

0 0 7 J 0 

. 0 S A 

. R n 

0 0 / 0 1 

. USA 

• K vj 

0 0 / 0 2 

. USA 

. |< A 

0 0 7 0 3 

. USA 

. r" S 

o o ; o 4 

. U S A 

. r' J 

0 0 7 0 b 

. Q S A 

. K b 

0 0 1 0 o 

. USA 

. KG 

0 U 7 U 7 

.USA 

. KX 

0 0 / J 0 

. USA 

. Rb 

0 0 71 1 

. 0 S A 

. A fc, 

0 0 7 1 2 

. DSA 

. Rrt 

u 0 713 

.USA 

, KK 

0 0 71 4 

. U 6 A 

. R w 

0 0 / 1 b 

. u S A 

o VJ 0 

0 0 7 i o 

. U S A 

. G b 

0 07 L 7 

. u 3 m 

. 3 A 

0 0 7 2 o 

. 0 S A 

. S S 

0 0 7 21 

. U S A 

• v»C 

0 0 7 2 2 

. U S A 

. ■’ 3 b 

01) / 2 3 

. U S A 

, H R 

0 0 7 2 4 

. L) S A 

, t 1 t 

0 0 7 2 b 

e ‘ ) O 

. f' A 

0 0 /2b 

. j) S A 

. rT 

0 0 7 2 7 

. D S A 

. f 0 

0 0 7 3 U 

. U S A 

. oK 

00 7 3 1 

. USA 

. VJ v_J 

0 0 7 3 2 

. U S A 

. K V 
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Programming Examples 


00 / 3 3 

s D S A 

. s V 

0 0 7 3 4 

. L)S A 

. Z b 

0 0 1 3 b 

. DSA 

o F r 

0 0 7 3 b 

. USA 

0 0 0 0 0 ^ 

U u 7 3 7 

. Ob A 

0 0 u 1 4 4 

u 0 7 4 0 

„ OS A 

0 0 0 u 0 b 

0 0 7 4 1 

o 0 b A 

o j u o u 

0 0 7 4 2 

.OS A 

0 U (J u 0 4 

00 7 4 3 

. i) S A 

U 0 i I 3 0 

0 0 7 4 4 

» OS A 

0 U U !/ 1 <! 

0 0 7 4 5 

.USA 

0 0 0 U U b 

U U 7 4 b 

. USA 

0 0 U U U 3 

00 7 4 7 

. DSA 

0 u u u u 1 

0 0 7 b o 

. USA 

U U 0 0 0 7 

0 0 7 b 1 

. US A 

u 0 y u 10 

00 / b 2 

. 0 S rt 

0 J 0 w 1 7 

0 0 7 b 3 

. 0 S A 

0 u U U 3 1 



RLl 

00545 


RU2 

00556 


arr 

00571 


NM1 

00645 


NM2 

00657 


B f00 

0000<H 


,200 

00011 

$ 

define 

00670 


JVB 

00671 


4 V A 

00672 

* 

SEEK 

00675 

* 

ENTER 

00674 

$ 

,RS 

00675 


INT 

00676 



0067 7 

Vlf 

« RB 

0070(51 

$ 

b RG 

00701 


a RX 

00702 

& 

0 PS 

00703 

& 


00704 

6 

,FB 

00705 

$ 

s FG 

00706 

# 

B F X 

00707 

mr 

e RR 

00710 

$ 

g RE 

007H 

& 

«RA 

00712 


s>RF 

00713 

♦ 

9 Rw 

00714 

* 

g SD 

00713 

& 

g G£ 

00716 

$ 

e GA 

00717 

& 

9 SS 

007 §0 

& 

9 gc 

0072} 

& 

0 gb 

007 29 

& 

9 fr 

00723 

& 

a FE 

00724 

& 

.FA 

00725 

& 

8 FF 

00720 

& 

„ F W 

00727 

& 

@ GF 

00730 

$ 

B GG 

00731 

& 

«F V 

00732 

& 

.ST 

00733 

& 


00734 


9 fp 

00735 


PROGRAM size 8 00754, MO ERRORS 



APPENDIX D 
SYSTEM LIBRARIES 


D.l DOS-15 PAGE MODE NON-FPP LIBRARY 


LIBRARY file listing for ,librp 


program 

SOURCE 

PROGRAM 

ACTION 

name 

EXTENSION 

SIZE 


SOSTT 

001 

10 


RBCDlo 

007 

136 


RBINIO 

006 

113 


RANCOM 

014 

504 


define 

@17 

1126 


DDIO 

017 

2045 


edcode 

003 

253 


EOF 

000 

30 


UNIT 

001 

66 


JABS 

@01 

15 


JDFIX 

@@i 

13 


JFIX 

001 

13 


floatj 

001 

13 


JDBLE 

001 

10 


I8NGL 

002 

30 


JSIGN 

@04 

23 


JDIM 

001 

21 


JMOD 

003 

23 


JMNMX 

BSP 

103 


IRRBE? 

0@0 

25 


IOERR 

002 

40 


FILE 

010 

366 


TIME 

@11 

70 


TXME10 

010 

117 


APS 

002 

16 


IABS 

000 

14 


DABS 

001 

16 


AXNT 

002 

15 


INT 


13 


XDXNT 

005 

13 


AMOD 

003 

27 


MOD 

@00 

24 


DMOD 

004 

30 


FLOAT 

002 

11 


XFIX 

0@t 

13 


sign 

004 

31 


DSIGN 

004 

31 


ZSIGN 

000 

20 


DIM 

002 

22 


XOIM 

000 

15 


SNGL 

004 

27 


DBLE 

001 

11 


IMNMX 

07P 

107 


RMNMX 

HP 

120 


dmnmx 

@§P 

106 


o SB 

004 

60 



D-l 


PAGE I 



System Libraries 


LIBRARY Will LISTING FOR sLIBRP 


PROGRAM 

SOURCE 

PROGRAM 

name 

EXTENSION 

SIZE 

0 ee 

010 

133 

s BD 

@10 

133 

9 BE 

0@g 

33 

8 bf 

@08 

34 

0 BS 

0@8 

35 

a §H 

80S 

34 


@04 

121 

SORT 

@08 

73 

SIN 

003 

13 

COS 

@03 

20 

ATAN 

002 

13 

ATAN2 

00® 

78 

\W 

@§g 

13 

ALOG 

002 

§8 

ALOGI0 

002 

28 

tanh 

@04 

47 

b E@ 

@04 

102 

sED 

@06 

67 

• « 

@02 

7 1 


@0® 

143 

• ie 

001 

4 4 

0SQRT 

m? 

71 

D$IN 

@01 

13 

Decs 

002 

21 

datan 

@01 

13 

0ATAN2 

00S 

73 

DEXP 

@01 

13 

DL0G 

@03 

21 

DLOG10 

@01 

21 

IDEERO 

0@1 

16 

ISENS^ 

001 

3@ 

I FLOW 

@01 

22 

0 DD 

@@8 

148 

0 DB 

®@4 

128 

® DE 

@@3 

101 

0 DP 

@@i 

137 

0 DC 

@01 

47 

a DA 

HP 

50 

®DJ 

@@@ 

31 

BCDIO 

048 

4023 

bxnio 

020 

6 397 

AUXX0 

@10 

133 


009 

110 

GOTO 

@03 

86 

STOP 

0 @ 8 

61 

PAUSE 

@06 

14 
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System Libraries 


LIBRARY FILE listing FOR .LIBRP 


PROGRAM 

SOURCE 

PROGRA 

name 

EXTENSION 

SIZE 

8PMSG 

012 

117 

• FLTB 

004 

260 

FIOPS 

035 

751 

partwd 

03P 

140 

OBLINt 

07P 

377 

inteae 

07P 

131 

DOUBLE 

004 

203 

releae 

10P 

1077 

OTSER 

013 

210 

,CB 

004 

22 
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System Libraries 


D.2 DOS-15 BANK MODE NON-FPP LIBRARY 


LIBRARY pile listing for 0 librb 


program 

SOURCE 

PROSRA 

name 

EXTENSION 

SIZE 

B08TT 

0@i 

10 

RBCDIO 

007 

136 

RBINIO 

00 S 

113 

random 

0 I 4 

304 

define 

017 

1126 

DD10 

@17 

8045 

EDCODE 

003 

253 

EOF 

@«0 

30 

UNIT 

001 

66 

JABS 

@0 i 

IS 

JDFlX 

001 

13 

JFIX 

001 

13 

floatJ 

001 

13 

JDiLE 

@01 

10 

XSNGL 

0@t 

30 

JSIGN 

004 

23 

JDXM 

@01 

21 

JMOD 

003 

83 

JMNMX 

03B 

103 

ERR8ET 

@i@ 

85 

IOERR 

@02 

m 

PILE 

@1@ 

366 

TIME 

@11 

7@ 

TIMEI® 

010 

117 

ABB 

@02 

16 

I AB$ 

000 

14 

DABS 

001 

16 

A|NT 

@@g 

IS 

INT 

@@g 

13 

ID1NT 

MS 

13 

AMOD 

i@3 

27 

MOD 

i@0 

24 

OMOD 

004 

30 

FLOAT 

@@g 

11 

IFIX 

@@2 

13 

sign 

@04 

31 

DsIGN 

@04 

31 

ISIGN 

@@@ 

20 

DIM 

@M 

§2 

xdim 

@@@ 

15 

SNGL 

@04 

27 

DBLE 

@01 

11 

1MNMX 

@70 

107 

RMNMX 

1 IB 

120 

DMNMX 

@98 

106 

0 SB 

@04 

60 


ACTION 



System Libraries 


library pile listing for .librb 

PROGRAM SOURCE PROGRAM 


name 

EXTENSION 

SIZE 

.BC 

010 

133 

.BD 

010 

133 

• BE 

@06 

33 

,BF 

005 

34 

,BG 

008 

35 

• BH 

005 

34 

• BI 

004 

121 

SORT 

008 

73 

SIN 

003 

13 

COS 

003 

20 

ATAN 

002 

13 

ATAN2 

008 

70 

EXP 

002 

13 

ALOG 

002 

20 

ALOG10 

002 

20 

TANH 

004 

47 

.EB 

004 

102 

• ED 

006 

67 

• EE 

002 

71 

„EF 

008 

143 

• EC 

001 

44 

08QRT 

007 

71 

OSIN 

001 

*3 

DCOS 

002 

21 

DATAN 

001 

13 

DATAN2 

008 

73 

DEXP 

001 

13 

DLOG 

003 

21 

DLOG10 

001 

21 

IDZERO 

001 

16 

ISENSw 

001 

30 

XFLOW 

001 

22 

• DD 

006 

146 

• DB 

004 

120 

«DE 

003 

101 

• DF 

001 

137 

• DC 

001 

47 

• DA 

11B 

56 

• DJ 

000 

51 

BCDIO 

048 

4023 

BINIO 

020 

357 

AUXIO 

018 

133 

• 88 

009 

110 

GOTO 

003 

28 

STOP 

008 

61 

PAUSE 

006 

14 


ACTION 


PAGE 
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System Libraries 


LIBRARY FILE LISTING FOR e LIBRB 


PROGRAM 

SOURCE 

PROGRAM 

name 

EXTENSION 

SHE 

SPMSG 

Bit 

11? 

©FLTB 

004 

§66 

FIOPS 

035 

751 

partnd 

03B 

141 

DBUNt 

07B 

404 

inteae 

80S 

134 

DOUBLE 

004 

203 

releae 

018 

mi 

OTSER 

013 

210 

® CB 

004 

22 


ACTION 


C 
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System Libraries 


D.3 DOS-15 PAGE MODE FPP LIBRARY 


library file listing for .fpag 


PROGRAM 

SOURCE 

PROGRAM 

ACTION 

NAME 

extension 

SIZE 


B08TT 

mi 

16 


RBCDIO 

mi 

136 


RBINIO 

006 

113 


rancom 

014 

504 


define 

01? 

1128 


DDXO 

F 1 7 

2016 


EDCODE 

003 

253 


EOF 

000 

30 


UNIT 

001 

66 


JABS 

F01 

14 


JDFXX 

F01 

12 


JPIX 

F01 

12 


float J 

F0i 

10 


JDBLE 

F01 

10 


ISNGL 

F02 

13 


JSXGN 

F@4 

18 


JDXM 

F@ 1 

17 


JMOD 

F03 

17 


JMNMX 

03U 

102 


ERRSEf 

@00 

25 


IOERR 

002 

40 


FILE 

@10 

366 


TIME 

011 

70 


TIME10 

010 

117 


ABS 

P@2 

13 


XAB8 

@00 

14 


DABS 

F@ 1 

IS 


AINT 

F@g 

14 


INI 

F02 

12 


XDINT 

F0S 

12 


AMOD 

F03 

23 


MOD 

@00 

24 


DM-OD 

F@4 

23 


FLOAT 

002 

11 


IF IX 

F02 

12 


SIGN 

F04 

24 


D8IGN 

F04 

24 


SSXGN 

000 

20 


SIM 

F02 

17 


ID IM 

000 

15 


SNGL 

F04 

16 


DBLE 

F01 

10 


IMNMX 

07 P 

107 


RMNMX 

HU 

116 


DMNMX 

8§U 

104 


@BB 

004 

60 
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System Libraries 



library file listing FOR a PPAG 


PROGRAM 

SOURCE 

PROGRA 

Name 

EXTENSION 

SIZE 

0 iC 

Pl@ 

127 


Pie 

127 

a 8E 

pee 

30 

b BF 

Peg 

31 

«BG 

PM 

31 

@SH 

PBS 

31 

9 il 

FM 

114 

80RT 

PBS 

73 

SIN 

F@3 

12 

COS 

PBS 

16 

ATAN 

P@g 

12 

ATANi 

F08 

Si 

EXP 

F@g 

12 

ALOG 

Peg 

1@ 

ALOG10 

P«g 

16 

TANH 

P@4 

40 

■ KB 

F04 

77 

@ ED 

F0@ 

7@ 

0 EE 

Peg 

72 

.if 

F@8 

1 40 

@EC 

FBI 

40 

DSQRT 

F@7 

70 

OSIN 

FBI 

12 

DCOS 

P@g 

17 

BAT AN 

FB| 

12 

DATANg 

PM 

@4 

DEXP 

FBI 

12 

DLOG 

Fas 

17 

DLOGIf 

FBI 

17 

XOZERO 

@ai 

IS 

ISENSW 

@@i 

30 

XFLOW 

@@i 

22 

aDD 

F@@ 

13 7 

©os 

F§4 

ns 

@ DE 

P03 

104 


FBI 

130 

0 DC 

Ffl 

43 

0 DA 

Up 

58 

S DJ 

000 

Si 

©CDIO 

F 48 

3731 

BINXO 

@g@ 

337 

AUK 10 

@1® 

133 

s BS 

@09 

110 

goto 

003 

26 

STOP 

@08 

61 

PAUSE 

@00 

14 


action 
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System Libraries 


library file listing for b PPAG 

PROGRAM SOURCE PROGRAM ACTION 


name 

EXTENSION 

SIZE 

SPMSG 

012 

117 

.FLTB 

004 

266 

FIOPS 

@35 

751 

PARTWD 

03U 

146 

INTEAe 

07P 

131 

@FPP 

FIB 

440 

OTSER 

F13 

210 

b CB 

0@4 

22 
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System Libraries 


D.4 DOS-15 BANK MODE FPP LIBRARY 


L1BRARV FILE LISTING FOR 0 FBNK 


program 

SOURCE 

name 

EXTENSION 

BOSTT 

001 

RBCDIO 

007 

RBXNIO 

@06 

ft ANCOM 

014 

define 

017 

DDIO 

f | j 

EOCODE 

@03 

EOF 

0@@ 

UNIT 

001 

JABS 

FBI 

JDFIK 

FBI 

JFIX 

FBI 

FLOAT J 

FBI 

JDBLE 

FBI 

ISNGL 

F@g 

JSIGN 

P@4 

*JDIM 

FBI 

JMOD 

F03 

JMNMK 

@3V 

ERRSET 

@@@ 

IOERR 

0@f 

FILE 

@1® 

TIME 

011 

TlMEls 

01i 

A0S 

Pig 

IAB8 

0@@ 

DABS 

FBI 

A|NT 

F@g 

INT 

Fig 

JOINT 

F@S 

AMOD 

F03 

MOD 

@@@ 

DMOO 

F@4 

FLOAT 

0@g 

IFXX 

Fig 

SIGN 

P@4 

DSIGN 

F@4 

I8I6N 

0 0 0 

DIM 

Fig 

1 DIM 

000 

SNGL 

F @ 4 

DBLE 

Ffli 

IMNMK 

07B 

RMNMX 

1IV 

DMNMX 

09V 

a BB 

0@4 


PROGRAM ACTION 

SIZE 

10 
130 
113 
5@4 
1126 
201S 
253 
30 
00 
14 
12 
12 
10 
13 
13 
18 

1 7 

17 
102 

25 

40 

366 

70 

117 

13 

14 

13 

14 
12 
12 
83 
24 

23 
11 

18 

24 

2 4 
20 

17 
13 

18 
10 

107 

116 

104 

60 
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System Libraries 


LIBRARY FILE LISTING FOR »FBNK 


PROGRAM 

SOURCE 

PROGRAM 

name 

EXTENSION 

SIZE 

# BC 

F10 

127 

e BD 

F10 

127 

.BE 

F0§ 

30 

b bp 

F05 

31 

,BG 

F08 

31 

. BH 

F05 

31 

■ BI 

P84 

114 

SORT 

P08 

73 

SIN 

F03 

12 

COS 

F03 

16 

ATAN 

F02 

12 

ATAN2 

F08 

61 

EXP 

F02 

12 

ALOG 

F02 

18 

ALOG10 

F02 

16 

TANH 

F04 

46 

s EB 

F04 

77 

.ED 

F06 

70 

0 EE 

F02 

72 

.EF 

F08 

140 

. EC 

FBI 

40 

DSORT 

F07 

70 

D$ IN 

F01 

12 

DCOS 

F02 

17 

DATAN 

FBI 

12 

DATAN2 

F08 

84 

DEXP 

FBI 

12 

DLOG 

FB3 

17 

DLOG10 

FBI 

17 

IDZERO 

BB1 

16 

X3ENSW 

001 

30 

IFLOW 

801 

22 

• DD 

F06 

137 

.DB 

F04 

113 

S DE 

F03 

104 

.DF 

F01 

130 

b dc 

FBI 

43 

.DA 

11B 

58 

,DJ 

000 

51 

bcdio 

F48 

3731 

BINIO 

020 

357 

AUXXO 

016 

133 

8 ss 

009 

110 

GOTO 

B03 

26 

STOP 

008 

61 

PAUSE 

086 

14 
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library file listing for 8 fbnk 


PROGRAM 

SOURCE 

,PROGRAM 

ACTION 

name 

extension 

SHE 


SPMSG 

812 

117 


„FLTB 

084 

266 


FIOPS 

0SS 

751 


parted 

0SV 

147 


inteae 

008 

134 


®fpp 

FI 8 

4 40 


0Y8ER 

P i 3 

210 


o CB 

004 

22 

c 



System Libraries 


0.5 RSX PLUS III NON-FPP LIBRARY 





LIBRARY PILE LTpTlNG 


program 

sou ®of 

NAME 

EXTENSION 

MYGP „ 2 

SRC 

FMF, 1 

SRC 

LAB.3 

SRC 

MNT.l 

SRC 

BSF.) 

SRC 

BSP . i 

SRC 

SPE.2 

SRC 

SPR. 1 

SRC 

SPF.l 

SRC 

ROC. 2 

SRC 

ADSMAP 

00 1 

adrmap 

002 

ADSSET 

003 

adrset 

002 

aostrt 

00 1 

ADSTOP 

001 

A 0 C 0 N 

001 

ADDIS 

001 

RDP.l 

SRC 

OOUT.0 

SRC 

PDDI.6 

SRC 

RBIN.0 

SRC 

RBCD.2 

SRC 

AI S 3 

SRC 

NAIF. 1 

SRC 

EHU.ll 

SRC 

DATF.5 

SRC 

RE0F.2 

SRC 

SCHF.0 

SRC 

RUNF',5 

SRC 

SYNF.4 

SRC 

CANF.3 

SRC 

RESF.3 

SRC 

HINF.1 

SRC 

FIYF.3 

SRC 

UNFF.4 

SRC 

DISF.3 

SRC 

ENAF.4 

SRC 

ATTF.3 

S»C 

DETF.2 

SRC 

RENF.1 

SRC 

DELF.i 

SRC 

SEEF.2 

SRC 

ENTF.2 

SRC 

CL0F.5 

SRC 

DSAF.6 

SRC 


FOR stJBRY 

ROGRAH ACTION 

SIZE 

53 

24 

34 
24 
24 
24 
291 
24 
24 
33 

114 

126 

74 

66 

20 

20 

20 

20 

53 

105 

203 

31 

73 

43 

4 

161 

40 

27 

50 

47 

55 

23 

24 
17 
23 
23 
23 
2 3 
20 
20 

35 
35 
35 
35 
57 
40 
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program 

SOURCE 

PROGRAM 

action 

MA ME 

EXTENSION 

SIZE 


osnF e 4 

SRC 

41 


DSGP, 1 

SRC 

10? 


M ARF e 3 

SRC 

23 


w aff . g 

SRC 

13 


susf 8 t 

SRC 

4 


EXIF 0 i 

SRC 

3 


URKF 0 o 

SRC 

21 


SPYF e i 

SRC 

24 


SP YR 0 o 

SRC 

40 


SPY3.1 

SRC 

24 


Q JOB 0 i 

SRC 

43 


EXOT 0 i 

SRC 

41 


COMCOm 

OO 1 

6 5 


FIS 0 3 

SRC 

70 


R8C0I0 

007 

123 


RBXNXo 

006 

1 00 


RANCOM 

014 

525 


DEFINf 

018 

747 


DDIO 

0 1 7 

2026 


EDCOPF 

003 

253 


JABS 

00 1 

15 


JOFIX 

0«1 

13 


JFIX 

00 1 

13 


floatj 

00 1 

13 


JDBLF 

00 1 

10 


XSNGL 

oog 

30 


JSIGN 

004 

23 


JOIN 

OOJ 

21 


JMOD 

003 

23 


JMNMX 

003 

105 


ERRSET 

000 

25 


IOERR 

002 

40 


ABS 

oog 

16 


IABS 

000 

14 


DABS 

00 1 

16 


AINT 

oog 

15 


I Ml 

oog 

13 


IDTMT 

005 

13 


AMOD 

003 

27 


MOO 

ooo 

24 


DMOO 

004 

30 


float 

oog 

11 


IF IX 

00? 

13 


SIGN 

004 

31 


DSXGN 

004 

31 


XSXGN 

OOP 

20 
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LIBRARY FILF L T ST I NG FOR .LIBRX 


PAGE 3 











PROGRAM 

SOlJRC.F 

PROGRAM 

name 

extension 

SIZE 

DIM 

002 

22 

IDIH 

000 

15 

SNGL 

004 

27 

DBLE 

wwi 

1 1 

XMNMX 

007 

1 11 

RMNMX 

0 1 1 

122 

DMNMX 

wwg 

110 

«BB 

004 

60 

a BC 

01 w 

133 

„BO 

010 

133 

a BE 

00K 

33 

,BF 

005 

34 

.BG 

00 s 

35 

.BH 

005 

34 

a BI 

004 

121 

SORT 

008 

73 

SIN 

003 

13 

COS 

P03 

20 

ATAN 

002 

13 

AT AN? 

00fl 

7W 

EXP 

00 ? 

13 

ALOG 


20 

ALOGlp. 

00 ? 

2* 

TANH 

00 4 

47 

,EB 

004 

102 

a ED 

006 

67 

.EE 

002 

71 

.EF 

00R 

143 

.EC 

001 

44 

OSORT 

007 

71 

DSIN 

001 

13 

DCOS 

00? 

21 

DATA* 

001 

13 

DAT AN? 

008 

73 

DEXP 

00 1 

13 

DLOG 

0 0 3 

21 

DLOG1 w 

001 

21 

IDzERO 

001 

16 

I SENSw 

PICT 1 

30 

IFLOW 

00 1 

2? 

. DO 

006 

1 46 

, DB 

004 

120 

.DE 

003 

101 

• OF 

00 1 

137 

.DC 

001 

47 

.DA 

01 t 

101 


ACTION 
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program 

SOURCE 

PROGRAM 

ACTION 

NAME 

FXTENS TOW 

SIZE 


a D J 

9| 9 0 

51 


BCD 10 

CMS 

3733 


B X N10 

$99 

267 


AUKIO 

91 1 6 

133 


0 SS 

M9 

110 


GOTO 

M3 

26 


STOP 

01*7 

14 


PAUSE 

MS 

14 


FIOPS 

BBS 

676 


PARTWo 

03P 

1 491 


DBLINT 

07P 

37 7 


INTEAE 

07P 

131 


double 

0M 

P (713 


RELEAf 

1 0P 

1077 


OTSEP 

P11 3 

242 


SPMSG 

01 ? 

124 


@ CB 

0 0 4 

22 


@ BP 


19 


0 F P 

PI 91 PI 

2 

c 
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D.6 RSX PLUS ill FPP LIBRARY 




LIBRARY file 

PROGRAM 

SOljRCF 

name 

F X T F N S T 

MTGP.? 

SRC 

FMF „ 3 

SRC 

L AB „ 3 

SRC 

MNT 8 1 

SRC 

BSF 9 1 

SRC 

BSP„ 3 

SRC 

SPE a 2 

SRC 

SRR „ 1 

SRC 

SPF b 1 

SRC 

RDC a 2 

SRC 

ADSMAP 

001 

adrmap 

009 

ADSSET 

003 

adrset 

002 

ADSTRT 

001 

AOSTOP 

00 3 

aocon 

001 

ADDIS 

001 

RDP „1 

SRC 

DOUT .0 

SPC 

RDDI „6 

SRC 

RBIN> 

SRC 

R B C D „ 2 

SRC 

AI a 3 

SRC 

WAIF.i 

SRC 

EXlJ e 3 l 

SRC 

DATF.5 

SRC 

RE 0 F .2 

SRC 

8 CHF ,6 

SRC 

RUNF 0 5 

SRC 

SYNF.4 

SRC 

CANF.3 

SRC 

RESF.3 

SRC 

HINFpI 

SRC 

F X XP 0 3 

SRC 

UNFF.4 

SRC 

DISF B 3 

SRC 

ENAF.4 

SRC 

ATTF 8 3 

SRC 

DETF .2 

SRC 

RENF. j 

SRC 

OELF.i 

SRC 

SEEF p 2 

SRC 

ENTF .2 

SRC 

CLOP 8 5 

SRC 

OS AF a @ 

SRC 


Y S 71NG FOR ,LIBF X 
PROGRAM 

M SIZE 

53 

24 

34 
24 
24 
24 
20 
24 
24 
33 

114 

126 

74 

66 

20 

20 

20 

20 

53 

105 

205 

31 

73 

43 

4 

161 

40 

27 

50 

47 

55 

23 

24 
17 
23 
23 
23 
23 
2ffl 
20 

35 
35 
35 
35 
57 
40 


ACTION 
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LIBRARV file LISTING for 9 libf X PAGE 2 


PROGRAM 

SOURCE 

PROGRAM 

name 

EXTENSION 

SIZE 

0SDF.4 

Sop 

4 i 

DSGP e ! 

SPC 

IP 2 

MARF.3 

SRC 

23 

WAFF*? 

SRC 

13 

SUSF e 1 

SRC 

4 

EKIF s i 

SRC 

3 

UPKF 0 p 

SRC 

2 1 

SPYF s i 

SRC 

24 

SPYR.a 

SRC 

40 

SP¥S 0 j 

SRC 

24 

QJOB e i 

SRC 

43 

EXGT 0 1 

SRC 

41 

COMCOm 

0«1 

65 

FTS o 3 

SRC 

70 

RBCDIO 

PP7 

123 

RBINlo 


1 PIP 

RANCOm 

pi 4 

525 

define 

PM 8 

747 

DDIO 

FI 7 

1777 

EDCODf 

003 

253 

JABS 

Fun 

14 

JDPXX 

F*l 

12 

JFIX 

F 01 

12 

floatj 

Pp \ 

1PI 

jdble 

FO 1 

1« 

ISNGL 

F$p 

13 

JSTGN 

Pp4 

16 

JOIN 

Ffl t 

17 

JMOD 

F«3 

17 

JMNMX 

F03 

104 

errset 

0P0 

25 

IOERR 

PIW? 

40 

ABS 


13 

I APS 

PPP 

14 

DABS 

F9M 

13 

A|NT 

Ppp 

14 

I NT 

PfSP 

12 

IDTNT 

Fptg 

1? 

AMOD 

Fp 3 

23 

MOD 

010 0 

24 

DMOD 

P04 

23 

FLOAT 

POP 

1 1 

IFIX 

Fop 

12 

SIGN 

F«4 

24 

DSIGN 

FO 4 

24 

I SIGN 

POP 

20 


ACTION 
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program 

SOURCF 

PROGR AM 

NAME 

extension 

SIZE 

DIM 

F«2 

17 

XDIM 

draft 

IS 

SNGL 

F«4 

1-6 

D0LE 

F(3 1 

101 

IMNMX 

0ft7 

1 1 1 

RMNMX 

FI 1 

12ft 

DMNMX 

Fra© 

tras 

„ BB 

ra*4 

6ra 

» BC 

Fi'ra 

127 

,BD 

F i ra 

127 

.BE 

Frag 

3ra 

0 BE 

Frag 

31 

.BG 

Frag 

31 

,bh 

Frag 

31 

• BI 

Fra<d 

114 

SORT 

Fras 

73 

SIN 

Frag 

12 

COS 

Frag 

16 

ATAN 

Fra? 

12 

ATAN? 

Frag 

61 

EXP 

Fra? 

1? 

ALOG 

Fra? 

16 

AlOG 1 pi 

Fra? 

16 

tanh 

Fra4 

46 

.eb 

Fra a 

77 

.ED 

Frag 

7ra 

b EE 

Fra? 

7 ? 

,EF 

Frag 

14ra 

.EC 

Fraj 

40 

DSORT 

Fray 

7ra 

OSIN 

Frai 

12 

OCOS 

Fra? 

17 

DATAN 

Fra i 

12 

OATAN? 

Fra 8 

64 

OEXP 

Fra i 

12 

DIOG 

Frag 

17 

DLOGipi 

Frai 

17 

IOzERn 

01911 

16 

ISENSW 

rara 3 

30 

IFLOW 

rarai 

22 

.00 

Frag 

137 

.08 

Fra a 

116 

„DE 

Frag 

104 

.DF 

Fraj 

130 

.DC 

Frai 

43 

.DA 

rai i 

101 


action 
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program 

SOURCE 

program 

action 


NAME 

EXTENSION 

SIZE 



9 dj 

OOO 

51 



BCD ID 

F4p 

3641 



01 N 10 

0 90 

267 


■w* 

AUXIP 

0 1 6 

133 



«ss 

OMR 

1 10 



GOTO 

003 

26 



STOP 

007 

14 



PAUSE 

008 

14 



FI OPS 

035 

676 


■"-y 

PARTWn 

F3P 

146 


INTEAF 

OTP 

131 



e FPP 

FI 8 

461 



OTSEP 

F 1 3 

251 



SPHSG 

Of? 

1 24 



0 CB 

004 

29 



q BP 

000 

10 


)5 

a FP 

000 

2 

C 




' 

W 
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Absolute program, 1 -4 

Absolute value, 3-3 

Accumulators, 3-14 

Adjustable arrays, 4-3 

Arctangent function, 3-7, 3-10, 3-12 

Arguments, MACRO, 5-2 

Arithmetic operator, A-l 

Arithmetic package, 2-14, 3-17 

Array descriptor block, 4-1 

Arrays, 4-2 

ASCII data, 2-13 

• ASCII to .SIXBT conversion, 4-8 

AUXIO routines, 2-7 


BACKSPACE command, 2-7, 2-8 

Batch-processing monitor, 1-7 

BCDIO package, 2-5 

Binary record, 2-12 

BINIO routines, 2-6 

Blank common, 5-3 

BOSS operating system, 1-7 

BOSS routines, 2-18 

BSPREC magnetic tape function, 2-8 


Calling FORTRAN IV, 1-2 
Calling FORTRAN subprograms from 
MACRO, 5-2 

Calling library subprograms, 3-1 
Calling MACRO subprograms, 5-1 
Carriage return, 1-2 
CHAIN program, 1-4 
Clock handling routine, 4-7 
CLOSE routine, 2-16, 2-17 
Code, relocatable object, 1 -1 
Command string format, 1-2 
COMMON blocks, 5-3 
Common logarithm, 3-7 
Compiler error messages, B-l 
Compiler task name, 1-2 
Control P (tP), 1-3 
Conversion, 3-4 
Cosine function, 3-7, 3-9 


. DAA routine, 4-8 
Data, ASCII, 2-13 

Data-directed input-output (DDIO), 2-13 
Data modes, 4-2 
Data structure, 2-2 
Data transmission, 2-3 
statements, 2-1 

.DAT (Device Assignment Table), 2-2 
.DAT slot, 2-8 

DDIO (Data-Directed Input-Output), 2-13 
DECtape, 2-2 

DEFINE function (flowchart), 2-10 

DEFINE routine, 2-9 

DELETE routine, 2-18 

Device Assignment Table (.DAT), 2-2 

Device handlers, 2-3 

Devices, serial, 2-2 

Diagnostics, 1 -4 

Difference, positive, 3-4 

Direct access I/O, 2-9 

Directoried I/O, 2-2 

Disk operating system, 1-6 

Division by zero, 3-15 

• DJ routine, 4-3 

DLETE routine, 2-16 

DOS directoried subroutines, 2-15 

DOS-15 Bank Mode FPP library, D-10 

DOS-15 Bank Mode non-FPP library, D-4 

DOS-15 Page Mode FPP library, D-7 

DOS-15 Page Mode non-FPP library, D-l 

DOS monitor system, 1 -6 

Double (extended) integer arithmetic, 3-14 

DOUBLE INTEGER mode, 4-2 

DOUBLE PRECISION mode, 4-2 

Double-precision numbers, 3-15 

Dummy array, 4-2 


EAE (Extended Arithmetic Element), 1-7 

EDCODE (encode/decode), 2-15 

ENDFILE command, 2-7, 2-8 

ENTER routine, 2-16, 2-17 

Error handling routine, 4-7 

Error, I/O, 2-5 

Error messages, 1 -3, B-l 
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INDEX (Cont.) 


Errors, OTS, 1 -4 
ERRSET, 4-7 

Examples of programming, C-l 
Exponential function, 3-6, 3-7, 3-12 
Expression operators, A-l 
Extended integer (double integer) 
interface routines, 4-6 
Extension, 

LST., 1-3 
SRC, 1-2 

External functions, 3-6, 3-7 


File directories, 2-2 
File initialization, 2-9 
Filename, 1-2 

FIOPS package, 2-1, 2-3, 4-8 
Floating accumulator, 3-14 
Floating point processor (FPP), 3-14 
routines, 4-6 

Flowchart, DEFINE function, 2-10 
Format, command string, 1-2 
FORMAT statements, 2-6 
Formatted input/output, 

OTS, 2-5 
RBCDIO, 2-11 

Forms-control character, 2-5 
FP15 floating-point processor (FPP), 1-7 
routines, 4-6 
FSTAT routine, 2-16 
Functions, intrinsic, 3-2 
table, 3-3 


General Get argument, 3-13 
.GLOBL pseudo-operation, 3-1 
.GO routine, 4-3 


Handlers, device, 2-3 

Hardware, 1 -7 

Hardware accumulator, 3-14 

Header pair, 2-5 

Header words, 2-6 

Hyperbolic tangent, 3-7, 3-10 


IDZERO routine, 3-16 
example, C-l 


IFLOW routines, 3-16 
example, C-l 

Initialization and actual data transfer 
(RANCOM), 2-13 
Initialization, file, 2-9 
Input-output examples, C-2 
Input-output processing, 2-1 
INTEGER array, 4-2 
INTEGER, LOGICAL mode, 4-2 
Intrinsic functions, 3-2, 3-3 
I/O error, 2-4 


Language su-mmary, A-l 
Left arrow (*-) usage, 1-2 
Libraries, system, D-l 
Library functions, summary, A-l 2 
Library routines, RSX, 4-6 
Library subprograms, 3-1 
Linking loader, 1-4 
Links, 1 -4 

Logarithm, base 2, 3-11, 3-12 

Logarithms, 3-8 

Logical operators, A-l 

Logical record, 2-6 

Logical Unit Number (LUN), 2-2 

Logical Unit Table (LUT), 2-2 

LST. extension, 1-3 

LUN (Logical Unit Number ), 2-2 

LUT (Logical Unit Table), 2-2 


MACRO programming, 2-6 
MACRO subprograms, 5-1 
Magnetic tape, 2-2 
Mantissae, negative, 3-14 
Master File Directory (MFD), 2-2 
Maximum/minimum value, 3-5 
Memory-to-memory transfers, 2-15 
MFD (Master File Directory), 2-2 


Natural logarithms, 3-7 
Negative mantissae, 3-14 


Object Time System - see OTS 
Operating procedures, 1-1 
Operators, A-l 
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Option list,- 1-3 

OTS auxiliary input/output (AUXIO), 
2-7 

OTS binary input/output (BINIO), 2-6 
OTS errors, 1-4 
messages, B-7, B-9 
OTSER routine, 4-4, 4-8 
OTS formatted input/output, 2-5 
OTS utility routines, 1-1, 4-1 
Output listing file, 1-3 
Output to a printing device, 2-5 
Overflow, 3-15 
Overlays, 1 -4 


+ P (control P), 1 -3 

Paper tape, 2-2 

Paper tape reader, 1 -3 

Parameter table (.PRMTB), 2-11 

PARTWD routine, 4-5 

Pass 1, 1-3 

Pass 2, 1-3 

PAUSE routine, 4-4, 4-8 
Physical records, 2-6 
Polynomial evaluation, 3-12, 3-14 
Positive difference, 3-4 
.PRMTB (parameter table), 2-11 
Processing, input-output, 2-1 


RANCOM (initialization and actual 
data transfer), 2-1 3 
RBCDIO (formatted input/output), 2-11 
RBINIO (unformatted input/oufput), 
2-12 

READ statement, 2-6 
REAL array, 4-2 
REAL mode, 4-2 

Real-time multiprogramming, 1-7 
Record identification number, 2-6 
Record length, 2-5 
Relational operators, A-l 
RELEAE, real arithmetic package, 1-7, 
3-15 

Relocatable object code, 1 -1 

Remaindering, 3-4 

RENAME routine, 2-18 

REN AM routine, 2-16 

Retrieval Information Block (RIB), 2-2 

REWIND command, 2-7, 2-8 

REWIND magnetic tape function, 2-8 


Routines, 

floating point processor, 4-6 
OTS 4-8 
RSX library, 4-6 
utility, 4-1, 4-7 
RSX directoried subroutines, 2-17 
RSX library routines, 4-6 
RSX monitor system, 1-7 
RSX PLUS III FPP library, D-17 
RSX PLUS III non-FPP library, D-l 3 


Sample XVM/DOS session (figure), 1-5 

Science library, 3-1 

SEEK routine, 2-16, 2-17 

Sequential files, 2-2 

Sequential input-output, 2-4 

Serial devices, 2-2 

Sine function, 3-7, 3-9, 3-12 

Single integer arithmetic routines, 3-14 

Single-precision numbers, 3-15 

Software, 1 -6 

Software accumulators, 3-14 
SPMSG routine, 4-8 
Square root function, 3-6, 3-7 
SRC extensions, 1 -2 
.SS routine, 4-1 

Statements, data-transmission, 2-1 
Statements, summary, A-2 
STOP routine, 4-4, 4-8 
Subfunctions, 3-11 
table, 3-12 

Subroutines, user, 2-15 
System libraries, D-l 


TDV function task builder (TKB), 1-4 

TIME routine, 4-7 

Transfer of sign, 3-4 

Truncation, 3-3 

TTOF routine, 2-18 

TTON routine, 2-18 


UFDs (User File Directories), 2-2 
Underflow, 3-15 

Unformatted input/output (RBINIO), 2-12 
Unformatted statements, 2-6 
User File Directories (UFDs), 2-2 
User subroutines, 2-15 
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User subroutines, 2-15 Word-pairs, 2-5 

Utility routines, 4-1, 4-7 WREOF magnetic tape function, 2-8 

Write statement, 2-6 
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Did you find this manual understandable, usable, and well-organized? 
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